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ABSTRACT 


THIS PROGRAM IS ONE OF A SERIES USED TO TEST STRICTLY LOGIC FUNCTIONS 
OF THE VS60 DISPLAY PROCESSOR. IT IS THE PRIMARY TEST OF THE INTERNAL 
EIGHT LEVEL STACK AND FOUR LEVEL SILO. THERE ARE ADDITIONAL TESTS 
WHICH CHECK THE DELTA LENGTH AND TANGENT LOGIC ALONG WITH A 


MEMORY 
TEST CONCERNED WITH OPERATING THE VS60 ABOVE 28K OF MEMORY IF AVAILABLE. 


xe REV C FIXES THE GREATER=THAN=28K TEST *** 


REQUIREMENTS 


EQUIPMENT 

A. PDP=11 COMPUTER WITH AT gst 8k OF MEMORY 
B. 1/0 TERMINAL (I.E. ASR33 T 

C: VS60 DISPLAY PROCESSOR 

D. KT11 FOR MEMORY TEST ONLY 

STORAGE 

THIS PROGRAM OCCUPIES LOWER 8k OF MEMORY. 


LOADING PROCEDURE 


NORMAL PROCEDURE FOR LOADING A BINARY PROGRAM INTO MEMORY SHOULD 
BE FOLLOWED. 


STARTING PROCEDURE 


STARTING ADDRESS 200 

LOADING ADDRESS 200 AND STARTING WILL IDENTIFY THE TEST, INDICATE 
THE MEMORY SIZE IN THE SYSTEM, INITIALIZE THE SYSTEM, AND BEGIN 
TESTING. 

RESTART ADDRES 204 


LOADING ADDRESS 204 AND STARTING WILL INITIALIZE THE SYSTEM AND 
BEGIN TESTING. 


SEQ 0003 


SWiTCH REGISTER SETTINGS 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

HALT AT END OF DIAGNOSTIC 

INHIBIT ITERATIONS = NORMALLY 2000(8) AFTER 1ST PASS 


ROR 
LOOP ON TEST IN SWR<7:0> 


ERROR COMMENT 


ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE 
COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION 

OF THE ERROR CAN BE OBTAINED IF NEEDED FROM THE COMMENT AT THE 
ERROR PC OR FROM THE ERROR TABLE (SERRTB:) TOWARD THE FRONT 
OF THE LISTING. 


ERROR DATA 


LISTING ADDRESS WHERE THE ERROR WAS DETECTED 
TEST NUMBER WHERE THE ERROR OCCURRED 
DISPLAY BUS ADDRESS WHERE THE RESULTANT DATA WAS EXPECTED 
DATA THAT WAS EXPECTED 
DATA THAT WAS RECEIVED 
INDICATES STACK LEVEL WHERE FAILURE OCCURED 
INDICATES LOW ORDER 16 BIT ADDRESS EXPECTED (MEM TST ONLY) 
INDICATES HIGH ORDER 2 BIT ADDRESS EXPECTED (MEM TST ONLY? 
RECEIVED LOW ORDER 16 BIT ADDRESS (MEM TST ONLY) 
RECEIVED HIGH ORDER 2 BIT ADDRESS (MEM TST ONLY) 
INDICATES VECTOR VALUE FROM WHICH DELTA LENGTH 
AND TANGENT ARE CALCULATED 


“#NOTE: THESE ARE TYPICALLY TYPED. 








7.0 


7.1 


Vt 


7.3 


7.4 


8.0 


MISCELLANEOUS 


VS60 BUS/VECTOR ADDRESS MODIFICATION: 
MODIFY LOCATION ‘SVECT1" IF BASE VECTOR ADDRESS IS NOT 320. 
MODIFY LOCATION ‘$BASE’ IF BASE BUS ADDRESS IS NOT 172000. 


NOTE: A RESTART IS REQUIRED AFTER THE ABOVE ADDRESS MODIFICATION. 
THE ABOVE LOCATIONS ARE LOCATED IN THE ‘APT MAILBOX-ETABLE’. 


XXDP/APT NOTES: 

THIS DIAGNOSTIC IS CHAINABLE UNDER XXDP. 

THIS DIAGNOSTIC INCLUDES THE ‘APT SCFTWARE HOOKS’ HOWEVER, THEY 
HAVE NOT BEEN TESTED. 


POWER FAIL: 
A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT 
WHICH TIME THE PROGRAM IS RESTARTED AT THE BEGINNING. 


SINGLE VS60 TESTING: 
THIS DIAGNOSTIC DOES NOT TEST MULTIPLE vVS60'S. 


EXECUTION TIME 


EXECUTION TIME RANGES FROM ABOUT 3 SECONDS WITH NO ITERATIONS 
TO ABOUT 2 MINUTES WITH ITERATIONS ENABLED. EXECUTION TIME WILL 
INCREASE AS MEMORY IS INCREASED ABOVE 8K. AN ‘END PASS" MESSAGE 
IS TYPED EACH PASS THRU THE DIAGNOSTIC. 


Lt ee 


SEQ 0005 


9.0 


9.2 


9.3 


9.4 


PROGRAM TEST DESCRIPTIONS 


STACK POINTER TESTS 


STACK POINTER TESTS INCLUDE: 

DECREMENT (JSR), INCREMENT (POP), STACK OVERFLOW (GREATER THAN 

8 JSR'S WITHOUT A POP), STACK UNDERFLOW (GREATER THAN 8 POP'S WITHOUT 
A JSR), STACK OVERFLOW INTERRUPT AND STACK UNDERFLOW INTERRUPT. 


STACK TESTS = JSR (PUSH) 


THE STACK CONSISTS OF 8 LEVELS OF 64 BITS. EACH WRITEABLE 

BIT IS FORCED TO EACH STATE STARTING FROM THE ‘TOP OF STACK’ 
POSITION THRU 8 LEVELS TO THE BOTTOM OF THE STACK. FOR EXAMPLE 
THE TYPICAL FORMAT MIGHT BE AS FOLLOWS: ‘TOP OF STACK" IS SET; 

AN INSTRUCTION IS SET UP AND EXECUTED WHICH SETS UP THE CONDITION 
UNDER TEST = FOR EXAMPLE LOAD THE VECTOR SCALE TO SOME VALUE; THEN 
A JSR_ (PUSH) INSTRUCTION IS EXECUTED = THIS WILL PUSH OR WRITE 

ON THE STACK THE VECTOR SCALE AT THE BITS ASSIGNED; THEN THE 
STACK POINTER IS SET (REG 32) TO POINT AT THE STACK LEVEL AND 
WORD WHERE THE VECTOR SCALE WAS STORED AND CAN BE READ 

FROM (REG 26); THEN IT IS CHECKED AGAINST WHAT SHOULD HAVE BEEN 
STORED AND IF OK THE TEST IS REPEATED AT THE NEXT STACK LEVEL. 


STACK TESTS - POP (RESTORE) 


THESE STACK TESTS INCLUDE EXACTLY THE SAME PROCEDURE AS 9.2 

BUT INSTEAD OF THE CONDITION UNDER TEST BEING VERIFIED ON THF 

STACK, IT IS RESTORED VIA A POP INSTRUCTION AND VERIFIED FROM 

THE BUS. NOTE THAT BEFORE THE POP IS PERFORMED THE COMPLEMENT OF WHAT 
WAS WRITTEN ON THE STACK IS SENT TO THE FLOP/S (CONDITION) 

UNDER TEST. THERE ARE SEVERAL CONDITIONS (I.E. STOP INTERRUPT 

ENABLE, L.P. HIT DISABLE, ETC.) THAT CANNOT BE VERIFIED FROM THE 

BUS, IN THIS CASE AN ADDITIONAL JSR IS EXECUTED AND THE 

CONDITION IS CHECKED ON THE STACK. 


STACK TESTS ON DPC BETWEEN 8K & 28k 


THESE TWO DPC STACK TESTS ARE IDENTICAL TO THE BASIC JSR & POP 
DPC TESTS EXCEPT THAT THEY ARE PERFORMED AT THE HIGHEST 

MEMORY BOUNDRY BELOW 28K. THE INTENTION IS TO STACK An AE aaa 
UNUSED HIGH ORDER DPC BITS. AT THE START OF THE PROGRAM A 

SIZER PROGRAM IS USED TO DETERMINE HIGHEST AVAILABLE MEMORY TO 
28k FOR THESE TESTS. ON 8K SYSTEMS THESE TESTS ARE ABORTED. 


SEQ 0006 





9.5 UPPER MEMORY ADDRESS TEST = ABOVE 28k 


THIS TEST REQUIRES THAT THE KT11 BE PRESENT OR THE TEST WILL 

BE ABORTED. THIS TEST WAS INTENDED TO EXERCISE DPC BITS 16 & 17 
AT 4K MEMORY INTERVALS ABOVE 28K. THE TEST SEQUENCE FROM EACH 4K 
BLOCK IS A JSR, POP & LOAD STATUS B INSTRUCTION. THE GRAPH 

PLOT INCREMENT PORTION OF THE LOAD STATUS B INSTRUCTION CONTAINS 
A PAGE ADDRESS EQUAL TO ACTUAL 4K MEMORY ADDRESS ABOVE 28K BEING 
ADDRESSED. REFER TO TEST FOR DETAILED EXPLAINATION. 


9.6 DELTA LENGTH TESTS 


WITH MAINTENANCE MODE SWITCH 3 SET WHEN EXECUTING A LONG VECTOR 
INSTRUCTION THE X POSITION REGISTER WILL CONTAIN THE DELTA LENGTH. 
THE DELTA LENGTH IS THE AMOUNT OF CHANGE FROM THE POINT OF ORIGIN TO 
THE EDGE OF THE SCREEN NOT TO EXCEED 1777. THESE TESTS WILL VERIFY 
THAT THE CORRECT DELTA LENGTH FROM THE POINT OF ORIGIN CAN BE 
CALCULATED WITH DIFFERENT VALUES OF X OR Y. 


9.7 TANGENT TESTS 


WITH MAINTENANCE MODE SWITCH 3 SET WHEN EXECUTING A LONG VECTOR 
INSTRUCTION THE Y POSITION REGISTER WILL CONTAIN THE TANGENT. 
THE TANGENT IS THE OPPOSITE DIVIDED BY THE ADJACENT. 

THESE TESTS WILL VERIFY THE TANGENT VALUE FOR DIFFERENT 

VALUES OF X OR Y AT A VECTOR SCALE OF UNITY. 


9.8 SILO TESTS 


THE SILO TESTS DETERMINE THAT EACH LEVEL OF THE SILO CAN RESTORE 

THE SAVED STATUS WHEN A LIGHT PEN FLAG INTERRUPT IS FORCED (USING 
MAINTENTANCE MODE 3). THE ACTUAL TEST ¥YT MIGHT LOOK LIKE THIS; 
SET UP THE STATUS TO SOME UNIQUE VALUE, A GRAPHIC DISPLAY 
INSTRUCTION (THIS FORCES STATUS TO 1ST LEVEL OF SILO), THEN 
COMPLEMENT STATUS, THEN CAUSE A LIGHT PEN FLAG INTERRUPT (THIS 

WILL RESTORE THE STATUS FROM THE 1ST LEVEL OF THE SILO), THEN 

THE PROGRAM WILL VERIFY THAT THE STATUS WAS RESTORED PROPERLY. 

SINCE THE SILO ADDRESS POINTER IS ALWAYS RESET ON DISPLAY STARTS, 

THEN THE ABOVE SEQUENCE MUST BE REPEATED UP TO FOUR TIMES (FOUR 
LEVELS IN SILO) FOR ALL LEVELS TO BE TESTED. THE ONLY DIFFERENCE 
WILL BE THAT THE LIGHT PEN INTERRUPT WILL BE FORCED AFTER THE OND, 
3RD, OR 4TH GRAPHIC INSTRUCTION DEPENDING ON THE SILO LEVEL 

UNDER TEST (EACH GRAPHIC INSTRUCTION LOADS THE SILO AND BUMPS 

THE SILO ADDRESS POINTER). AN ADDITIONAL STEP IS TAKEN IN SILO TEST #2 
IN THE CASE WHERE THE SILO RESTORED STATUS CANNOT BE READ DIRECTLY 
FROM THE BUS (L.P. HIT DISABLE, STOP INTR ENA, ECT.). TO VERIFY THESE 
RESTORED CONDITIONS, A JSR IS PREFORMED WHICH SAVES THIS INFORMATION 
ON THE STACK WHERE [1 IS ACCESSIBLE FROM THE BUS. 


SEQ 0007 


i. 
10.0 LISTING 
=---=-- SEQ 0008 


PROGRAM LISTING FOLLOWS. 


CZvSC-C vS60 INSTRUC” 
29-MAY=7¥ 11:36 


CZVSCC.P11 


—_ 
Nm 


2 LLL LLL LO LP 


a a sk a a a a as os ss ss es ss ss ss SS os SS Ss SS SS SS 
ff i SS SS SS YE VY YOUN ve vvuvevevewvws 


ROAR RRA AAA AARARAAAARARAAR AA AAA AAA AAAAAAAAAOO 


001100 


00 
177776 
177774 


J] 
IN TEST PART II] MACY11 30G(1063) 17-SEP-79 08:48 PAGE 1 


TITLE CZ2VSC=C VS60 INSTRUCTION TEST PART II] 
;*COPYRIGHT (C) 1976 

;*DIGITAL EQUIPMENT CORP. 

; sMAYNARD , MASS. 01754 


! #PROGRAM BY R. MOORE 


THIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC 
S*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


** 


t REV C <= FIXES TEST 107 TO OPERATE ABOVE 28K (G.P. JUNE '79). 


“SBTTL BASIC DEFINITIONS 
{INITIAL ADDRESS OF THE STACK POINTER *** 1100 *#* 


STACK= 

-EQUIV) EMT,ERROR ;;BASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOFE ;sBASIC DEFINITION OF SCOPE CALL 
; *MISCELLANEOUS DEFINITIONS 

HT= 11 :CODE FOR HORIZONTAL TAB 


LF= 12 £3 CODE FOR LINE FEED 

CR= 15 :CODE FOR CARRIAGE RETURN 

CRLF= 200 :CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 ‘ PROCESSOR STATUS WORD 


:STACK LIMIT REGISTER 
{PROGRAM INTERRUPT REQUEST REGISTER 
; sHARDWARE SWITCH REGISTER 
DDISP= 177570 ; HARDWARE DISPLAY REGISTER 


;*GENERAL PURPOSE REGISTER DEFINITIONS 
RO= 20 3 GENERAL REGISTER 


Ri= %1 7; GENERAL REGISTER 
R2= %2 3; GENERAL REGISTER 
R3= %3 3 GENERAL REGISTER 
R4= %4 7; GENERAL REGISTER 
R5= %5 ; GENERAL REGISTER 
R6= %6 3; GENERAL REGISTER 
R7= %7 7 GENERAL REGISTER 
SP= %6 :zSTACK POINTER 
PC= %7 7 PROGRAM COUNTER 
7*PRIORITY LEVEL DEFINITIONS 

PRO= 0 : PRIORITY LEVEL 0 
PR1= 40 : PRIORITY LEVEL 1 
PR2= 100 : PRIORITY LEVEL 2 
PR3= 140 : PRIORITY LEvel 3 
PR4= 200 sPRIORITY LEVEL 4 
PR5= 240 >; PRIORITY LEVEL 5 
PR6= 300 7 PRIORITY LEVEL 6 
PR7= 340 : PRIORITY LEVEL 7 


;*°"SWITCH REGISTER’ SWITCH DEFINITIONS 
Sw15= 100000 


SEQ 0009 


CZVSC=C__ VS60 Dat Ni At PART III MACY11 30G(1063) 


CZ2VSCC.P11 
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000004 
000002 
000001 


BASIC DEFINITIONS 


Sw14= 40000 
Sw13= 20000 
SWi2= 10000 
SW11= 4000 
Swi0= 2000 
Swo9= 1000 
SwO8= 400 
SwO7= 200 
SWO06= 100 
SwOS= 46 
Sw04= 20 
swo3= 10 
SWO2= 4 
swol= 2 
wO00= 


BIT15= 


BIT12= 10000 
BIT11= 40 
BIT10= 2000 
BITO9= 1000 
BITO8= 400 
BITO7= 200 
BITO6= 100 
BITOS= 40 
BIT04= 20 
BITO3= 10 
BITO2= 
BITO1= 2 
B1T00= 


“EQUIV BITOO.BITO 


;*BASIC *'CPU'’ TRAP 
ERRVEC= 4 


K 1 
17-SEP-79 08:48 PAGE 1-1 


VECTOR Re oor 


TIME OUT AND OTHER ERRORS 


SEQ 0010 





- 
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CZvSC=C__VvS60 INSTRUCTION TEST PART II] MACY11. 30G( 
CZVSCC.P11 29-MAY=79 11:36 BASIC DEFIN 

(1) 000010 RESVEC= 10 

(1) 000014 TBITVEC=14 

(1) 000014 TRTIVEC= 14 

(1) 000014 BPTVEC= 14 

(1) 000020 IOTVEC= 20 

(1) 000024 PWRVEC= 24 

(1) 000030 EMTVEC= 30 

(1) 000034 TRAPVE C=34 

(1) 000060 TKVEC= 

(1) 000064 TPVEC= 64 

(1) 000240 PIRQVEC=240 

17 172000 ABASE= 172000 

18 100320 AVECT1= 100320 


nw 
~~ 


17=SEP=79 08:48 PAGE 1-2 


: : RESERVED AND ILLEGAL INSTRUCTIONS 
+: TRACE TRAP 
: 3BREAKPOINT TRAP (BPT) 

NPUT /QUTPUT TRAP (IOT) **SCOPE** 


POWER FAIL 

; TEMULATOR TRAP (EMT) **ERROR** 
Tt TRAP 

:; TTY KEYBOARD VECTOR 


7zTTY PRINTER VECTOR 
;zPROGRAM INTERRUPT REQUEST VECTOR 


SEQ 0011 


Mm 1 
CZVSC=C__ VS60 i wllaeagd He TEST PART III MACY11 30G(1063) 17-SEP-79 08:48 PAGE 1-3 
CZVSCC.P11 29-MAY-79 11:36 OPERATIONAL SWITCH SETTINGS 


- SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH 


in’) 
o 


HALT ON ERROR 
LOOP ON TEST 
INHIBIT ERROR TYPEOUTS 


PAAR RAAR 
Ss ee ee 
naenepepee nee 


WOO —rWS 


RROR 
LOOP ON TEST IN SWR<7:0> 
* SBTTL TRAP CATCHER 


-=0 
7*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘'.+2,HALT"’ 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
ae e. CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


;SOFTWARE DISPLAY REGISTER 
-WORD 0 3sSOFTWARE SWITCH REGISTER 
STARTING ADDRESS(ES) 


002304 ; JMP @ASTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 
003244 JMP RSTART ; RESTART. 


ACT11 HOOKS 
DUI AAI III III IOI ICICI IOI IOI OI OT OT TOT TOT TT TTT TOT TOT TOT TOT TS OT TT TTT 
;HOOKS REQUIRED BY ACT11 
$SVPC=. SAVE PC 
SENDAD 321)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 


«WORD 0 222)SET LOC. rt TO ZERO 
-=$SVPC 33 RESTORE P 


tt ap a i a a a al 
NNO 3 3 St Ss SS ty 9 SS Ss Ss SS SS Se 


* 


Ww wewewwewewewww ASweye yee weweweve we we ™~ 


-=1000 
-SBTTL APT PARAMETER BLOCK 


DUIS IOI IOI IOICIOIOIOIOI III TOTO TOI TOT TOT TOT TOT TTR IATA ITA IAI ASS ASAI SAN 
SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
TOO IO IOIOISISISIDISISIOIIOINIDIIOISIIIOIIOIIOIOI IOI IOIOIOIIOIOI TOI TOIT OT TOT TT TOT IE 
2 SAVE — LOCATION 
: 4 POWER FAIL TO POINT TO START OF PROGRAM 
;FOR APT START UP 
7:POINT TO APT INDIRECT ADDRESS PNTR. 
S:POINT TO APT HEADER BLOCK 
S TRESET LOCATION COUNTER 
PET IIIIT TLE 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
: INTERFACE SPEC. 


SAPTHD: 

$HIBTS: .WORD 0 TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
SMBADR: .WORD $MAIL :Z ADDRESS OF APT MAILBOX (BITS 0-15) 
$TSTM: .WORD 10. ;RUN TIM OF LONGEST TEST 


— ee es a fA) a fy 2 NN @ NONI OP OO 
ee Ne SS SS YY NOUS ew 


nA RRR ARRAR AAR RRARAARAARA 


SEQ 0012 





N 
CZVSC=C__ VS60 awn HN TEST PART II] pat 30G(1063) 17-SEP-79 08:48 PAGE 1-4 
CZVSCC.P11 29-MAY-79 11:36 T PARAMETER BLOCK SEQ 0013 


(1) 001006 000036 $PASTM: .WORD 30. + ¢RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
(1) 001010 000000 SUNITM: .WORD 0 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
pts 001012 000031 “WORD  $ETEND=$MAIL/2 ;;LENGTH MAILBOX-E TABLE (WORDS) 





B 2 
CZVSC-C__VS60 INSTRUCTION TEST PART III MACY11 30G(1063) 17-SEP-79 08:48 PAGE 1-5 
: 36 COMMON TAGS 


CZVSCC.P11 29-MAY-79 11 


29 

(1) 

(2) 

(1) 

(1) 

(1) 

(1) 001100 
(1) 001100 

(1) 001100 

(1) 001102 000 
(1) 001103 000 
(1) 001104 000000 
(1) 001106 000000 
(1) 001110 000000 
(1) 001112 000000 
(1) 001114 000 
(1) 001115 001 
(1) 001116 000000 
(1) 001120 000000 
(1) 001122 000000 
(1) 001124 000000 
(1) 001126 000000 
(1) 601130 000000 
(1) 001132 000000 
(1) 001134 000 
(1) 0011355 000 
(1) 001136 

(1) 001140 177570 
(1) 001142 177570 
(1) 001144 177560 
(1) 001146 177562 
(1) 001150 177564 
(1) 001152 177566 
(1) 001154 000 
(1) 001155 002 
(1). 001156 O12 
(1) 001157 000 
He 001160 000000 
(3) 001162 000000 
(3) 001164 000000 
(1) 001166 000000 
(1) 001170 000000 
(1) 001172 177607 000377 
(1) 001176 077 
(1) 001177 015 
(1) 001200 000012 
(2) 

(2) 

(2) 

(3) 

(2) 

(2) 001202 

(2) 001202 000000 
(2) 001204 


000000 
(2) 001206 000000 


.-SBTTL COMMON TAGS 


FDS ISI ISISIOIIOISIIOIOIOIOIOITIOI IOI TOT TOT TOTO TTT TOT STOTT STOTT ST TTT TTT TE 
*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


SEQ 0014 


-=1100 
SCMTAG: 73START OF COMMON TAGS 
-WORD 0 
$TSTNM: .BYTE 0 ; CONTAINS THE TEST NUMBER 
SERFLG: .BYTE 0O 7 CONTAINS ERROR FLAG 
$ICNT: .WORD 0 :sCONTAINS SUBTEST ITERATION COUNT 
$ILPADR: .WORD 0 :-CONTAINS SCOPE LOOP ADDRESS 
$LPERR: .WORD 0 3:CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD 0 ::CONTAINS TOTAL ERRORS DETECTED 
SITEMB: .BYTE 0 ;sCONTAINS ITEM CONTROL BYTE 
E -BYTE 1 :sCONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD 0 :sCONTAINS PC OF LAST ERROR INSTRUCTION 
$GDADR: .WORD 0 3;CONTAINS ADDRESS OF ‘GOOD’ DATA 
$BDADR: .WORD 0 3:CONTAINS ADDRESS OF ‘BAD’ DATA 
$GDDAT: .WORD 0 3sCONTAINS 'GOOD' DATA 
$BDDAT: .WORD 0 3:CONTAINS "BAD' DATA 
om 4 ; sRESERVED--NOT TO BE USED 
$AUTOB: .BYTE 0 ; sAUTOMATIC MODE INDICATOR 
SINTAG: yobs | 4 3: INTERRUPT MODE INDICATOR 
: D DSWR ;sADDRESS OF SWITCH REGISTER 
DISPLAY: .WORD DDISP : ADDRESS OF DISPLAY REGISTER 
TKS: 177560 ::TTY KBD STATUS 
$TKB: 177562 7: TTY KBD BUFFER 
$TPS: 177564 3zTTY PRINTER STATUS REG. ADDRESS 
$TPB: 177566 3-TTY PRINTER BUFFER REG. ADDRESS 
iL: .BYTE OQ ;sCONTAINS NULL CHARACTER FOR FILLS 
$FILLS: .BYTE 2 :sCONTAINS # OF FILLER CHARACTERS REQUIRED 
SFILLC: .BYTE te 37 INSERT FILL CHARS. AFTER A ‘LINE FEED'' 
STPFLG: .BYTE . 0 32""TERMINAL AVAILABLE’' FLAG (BIT<07>=0=YES) 
EGAD: .WORD ~ 0 7 ;CONTAINS THE ADDRESS FROM 
izWHICH ($REGO) WAS OBTAINED 
$REGO: .WORD 0 7: CONTAINS (($REGAD) +0) 
$TMPO: .WORD 0 USER DEFINED 
$TIMES: 0 7 sMAX. NUMBER OF ITERATIONS 
SESCAPE :0 ; ESCAPE ON ERROR ADDRESS 
ELL: .ASCIZ <207><377><377> ;;CODE FOR BELL 
$QUES: .ASCII /?/ 7 sQUESTION MARK 
$CRLF: .ASCII <15> 2: CARRIAGE RETURN 
SLF: eASCIZ <12> 7sLINE FEED 


WEARS ASA£AAALELASASESSAASAASAR AREAS SSAA RSA SARA RRR RRR ASS R SAS DSS | 


*SBTTL APT MAILBOX-ETABLE 


CLERK RRR AEE REE ERE REE EERE EERE KEE ERE EERE KE 


.EVEN 

SMAIL: 7 ;APT MAILBOX 
SMSGTY: .WwORD AMSGTY ;;MESSAGE TYPE CODE 
S$FATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
$TESTN: .WORD ATESTN ;;TEST NUMBER 


a 


CZVSC=C__ VS60 salons Fa PART II] pn eh A 


CZVSCC.P11 29-MAY-79 MAILBOX-ET 
(2) 001210 000000 $PASS: .WORD 
(2) 001212 000000 S$DEVCT: .WORD 
(2) 001214 000000 SUNIT: . WORD 
(2) 001216 000000 SMSGAD: .WORD 
(2) 001220 000000 SMSGLG: .WORD 
(2) 001222 SETABLE: 

(2) 001222 000 SENV: BYTE 

(2) 001223 000 SENVM: .BYTE 

(2) 001224 SSWREG: .WORD 

(2) 001226 000000 $USWR: WORD 

i$) 001230 000000 $CPUOP: .WORD 
** 

(2) ;* 

(2) ;* 

(2) 3* 

(2) 3* 

(2) ;* 

(2) 001232 000 $MAMS1: .BYTE 

(2) 001233 000 $SMTYP1: .BYTE 

(2) 3* 

(2) i* 

(2) :* 

(2) i* 

‘s} 001234 000000 $MADR1: .WORD 
** 

(2) 001236 000 2: .BYTE 

(2) 001237 000 $MTYP2: .BYTE 

(2) 001240 000000 SMADR2: .WORD 

(2) 001242 000 SMAMS3: .BYTE 

(2) 001243 000 SMTYP3: .BYTE 

(2) 001244 SMADR3: .WORD 

(2) 001246 000 SMAMS4: .BYTE 

(2) 001247 000 SMTYP4: .BYTE 

(2) 001250 R4: WORD 

(2) 001252 100320 SVECT1: .WORD 

(2) 001254 0 $VECT2: .WORD 

(2) 001256 172000 SE: .WORD 

(2) 001260 000000 SDEVM: .WORD 

(2) 001262 000000 $CDwW1 . WORD 

(2) 001264 $E TEND 

(2) MEXIT 


C 
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;;PASS COUNT 
2;DEVICE COUNT 


ENGTH 
T ENVIRONMENT TABLE 
‘ TENVI RONMENT BYTE 
; ENVIRONMENT MODE BITS 
7APT SWITCH REGISTER 
:sUSER SWITCHES 
PU_TYPE OPTIONS 
BiTS saci CPU TYPE 
11/04=01,11/05=02.11/20=03,11/40=04,11/45=05 
11/70=06 ,PDQ=07 ,0=10 
BIT 10=REAL_TIME CLOCK 
BIT 9=FLOATING POINT par 
BIT 8=MEMORY MANAGEMEN 
; HIGH ADDRESS,M.S. BYTE 
MEM. TYPE BLKA1 
MEM.TYPE BYTE == (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
; HIGH ADDRESS ,BLKA1 
MEM.LAST ADDR. =3 y tits THIS WORD AND LOW OF ‘‘TYPE** ABOVE 
;;HIGH ADDRESS,M.S. BYTE 
73MEM. TYPE ,BLKA2 
;:MEM.LAST ADDRESS ,BLK#2 
: ;HIGH ADDRESS .M.S.BYTE 


ee . TYPE ,BLKA 
:MEM.LAST ADDRESS ,BLKA3 
:;HIGH ADDRESS,M.S.BYTE 
MEM. TYPE ,BLKAG 
73;MEM.LAST ADDRESS ,BLKA4 
3. INTERRUPT VECTORA1 ,BUS PRIORITYA1 
3; INTERRUPT VECTOR#2BUS PRIORITY#2 
; BASE ADDRESS OF EQUIPMENT UNDER TEST 
::DEVICE MAP 
;;CONTROLLER DESCRIPTION WORDA1 


SEQ 0015 
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.SBTTL ERROR POINTER TABLE 
7*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


3>*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
[*LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE May PERTINENT. 


: *NOTE1: IF S$ITEMB IS 0 THE ONLY PERTINENT DATA _IS ($ERRP 
;*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
“had EM ;;POINTS TO THE ERROR MESSAGE 
s* DH ;sPOINTS TO THE DATA HEADER 
;* DT ;sPOINTS TO THE DATA 
* DF ;zPOINTS TO THE DATA FORMAT 


LOS LO LOLOL LL LL Le Oe 
—_ es es es 2 SS 2s 2 8 2 I 


001264 SERRTB: 


E 
CZVSC=C_ VS60 INSTRUCTION TEST PART II] MACY11 30G(1063) 17-SEP-79 08:48 PAGE 1-8 
c7vscc.©11 11:36 


29=MAY-79 


027554 


027704 
032030 
032324 
009000 


ERROR POINTER TABLE 
ERROR 1 = MAINT MODE 3 & L.P. FLAG FAILED TO CAUSE AN INTERRUPT 


EM1 3L.P. FLAG_INTR FAILURE 

DH1 ZERRPC TSTNUM BUSADR EXPCT RCVD 

DT1 ;SERRPC TSTNUM $8DADR $GDDAT $B8DDAT 

0 SALL ARE OCTAL 
ERROR 2 = SILO FAILED TO RESTORE AT BUSADRS & LEVEL INDICATED 

EM2 ;SILO FAILURE AT LEVEL INDICATED 

DHS s;ERRPC_ TSTNUM BUSADR EXPCT  RCVD 

es ;SERRPC TSTNUM S$BDADR $GDDAT $B8DDAT 
ERROR 3 = STACK POINTER FAILED TO DECREMENT PROPERLY ON JSR INSTR 

EM3 ;STK PTR DECREMENT ERROR 

DH1 sERRPC_ TSTNUM BUSADR EXPCT RCVD 

+ ;SERRPC TSTNUM $BDADR $GDDAT $8DDAT 
ERROR 4 - STACK OVERFLOW BiT FAILED TO SET OR RESET 

EM4 STACK OVERFLOW ERROR 

DH1 sERRPC TSTNUM BUSADR EXPCT RCVD 

gt ;SERRFC TSTNUM $BDADR $GDDAT S$EDDAT 
;ERROR 5 = JSR RELATIVE INSTR FAILED TO PUSH DPC ONTO STACK 

EMS ;DPC STACKING ERROR 

DH2 sERRPC TSTNUM BUSADR EXPCT RCVD 


Moe ;SERRPC TSTNUM $BDADR $GDDAT $8DDAT 


LEVEL 
$TMPO 


STK SEL 
$TMPO 


SEQ 0017 
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6 ERROR 6 = DPU NAME REG FAILED ON STACKING 

68 001334 027722 EM6 :DPU NAME STACKING ERROR 

69 001336 032030 DH2 SERRPC TSTNUM BUSADR EXPCT RCVD STK SEL 
70 001340 032324 DT2 :SERRPC TSTNUM $BDADR $GDDAT $BDDAT $TMPO 
| 001342 000000 0 

e ERROR 7 = MODE BITS FAILED ON STACKING 

75 001344 027745 EM7 :MODE STACKING ER 

76 001346 032030 DH2 sERRPC TSTNUM BUSADR EXPCT RCVD STK SEL 
77 001350 032324 DT2 s$ERRPC TSTNUM $BDADR $GDDAT $B8DDAT $TMPO 
S 001352 000000 0 

rs sERROR 10 = VECTOR SCALE BITS FAILED ON STACKING 

82 001354 027764 —EM10 VECTOR SCALE STACKING ERROR 

83 001356 032030 DH2 sERRPC TSTNUM BUSADR EXPCT RCVD STK SEL 
84 001360 032324 DT2 s$ERRPC TSTNUM $BDADR $GDDAT $B8DDAT $TMPO 
4 001362 000000 0 

o ERROR 11 = CHARACTER SCALE FAILED ON STACKING 

89 001364 030013 —EM11 CHARACTER SCALE STACKING ERROR 

90 001366 032030 DH2 ;ERRPC TSTNUM BUSADR EXPCT RCVD STK SEL 
91 001370 032324 DT2 :SERRPC TSTNUM $BDADR $GDDAT $BDDAT $TMPO 
4 001372 000060 0 

= ERROR 12 = CHARACTER ROTATE FAILED ON STACKING 

96 001374 030045 EM12 CHARACTER ROTATE STACKING ERROR 

97 001376 032030 DH2 sERRPC TSTNUM BUSADR EXPCT RCVD STK SEL 

001400 032324 DT2 :SERRPC TSTNUM $BDADR $GDDAT $BDDAT $TMPO 

Ba 001402 000000 0 
44 ERROR 13 - INTENSITY LEVEL FAILED ON STACKING 

108 001404 030100 —EM13 ¢ INTENSITY LEVEL STACKING ERROR 

104 001406 032030 DH2 ‘ERRPC TSTNUM BUSADR EXPCT RCVD STK SEL 
105 001410 032324 DT2 * $ERRPC TSTMA $BDADR $GDDAT $BDDAT $TMPO 
“ 001412 000000 0 
108 ERROR 14 = COLOR LEVEL FAILED ON STACKING 
110 001414 030132 EM14 :COLOR LEVEL STACKING-ER 

111. 001416 032030 DH2 sERRPC TSTNUM BUSADR EXPLT  RCVD STK SEL 
112 001420 032324 DT2 :$ERRPC TSTNUM $BDADR $GDDAT $BDDAT $TMPO 
i 001422 000000 0 
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030160 


030245 
032030 
032324 
000000 


030274 
032030 
032324 
000000 


030325 
032030 
032324 
000000 


030355 


ERROR POINTER TABLE 
;ERROR 15 = ITALICS FAILED ON STACKING 


RCVD STK SEL 
$BDDAT $TMPO 


RCVD STK SEL 
SBDDAT $TMPO 


RCVD STK SEL 
$BDDAT $TMPO 


RCVD STK SEL 
SBDDAT $TMPO 


RCVD STK SEL 
SBDDAT $TMPO 


RCVD STK SEL 
SBDDAT $TMPO 


EM15 ; ITALICS STACKING ER 

DH2 ;ERRPC TSTNUM BUSADR EXPCT 

.* ;SERRPC TSTNUM $BDADR $GDDAT 
ERROR 16 = MENU FAILED ON STACKING 

EM16 ;MENU STACKING ER 

DH2 sERRPC TSTNUM BUSADR EXPCT 

ie ;SERRPC TSTNUM $B8DADR $GDDAT 
;ERROR 17 = BLINK ENA FAILED ON STACKING 

EM17 ;BLINK ENA STACKING~ER 

DH2 ;ERRPC TSTNUM BUSADR- EXPCT 

_* ;$ERRPC TSTNUM $B8DADR $GDDAT 
;ERROR 20 - STOP INT ENA FAILED ON STACKING 

EM20 ;STOP INT ENA STACKING ER 

DH2 sERRPC TSTNUM BUSADR EXPCT 

at ;SERRPC TSTNUM $8DADR $GDDAT 
ERROR 21 = L.P. HIT FAILED ON STACKING 

EM21 ;LP HIT STACKING ER 

DH2 sERRPC TSTNUM BUSADR EXPCT 

ate ;SERRPC TSTNUM $B8DADR $GDDAT 
ERROR 22 - LOAD STATUS A OR B" INSTR FAILED WHEN ENA=0 (VERIFIED ON STACK) 

EM22 7LD STATUS STKING ER 

DH2 sERRPC TSTNUM BUSADR EXPCT 

gre ;SERRPC TSTNUM $BDADR $GDDAT 
ERROR 23 - EDGE INT ENA FAILED ON STACKING 

EM23 ;EDGE INT ENA STACKING ER 

DH2 ZERRPC TSTNUM BUSADR EXPCT 


RCVD STK SEL 


pie ;SERRPC TSTNUM $BDADR $GDDAT $BDDAT $TMPO 





SEQ 0019 
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CZvSCC.P11 29-MAY-79 11:36 ERROR POINTER TABLE SEQ 0020 
ERROR 24 = CHARACTER STRING ESCAPE FAILED ON STACKING 
001514 030404 EM24 ;CHAR STRING ESCAPE STACKING ER 
001516 032030 DH2 sERRPC_ TSTNUM BUSADR EXPCT RCVD STK SEL 
001520 032324 DT2 ;SERRPC TSTNUM $BDADR $GDDAT $BDDAT $TMPO 
001522 000000 0 
ERROR 25 = DEPTH QUEING OR DEPTH QUE CONTROL FAILED ON STACKING 
001524 030441 EM25 ;DEPTH QUE STACKING ER 
001526 032030 DH2 sERRPC TSTNUM BUSADR EXPCT RCVD STK SEL 
001530 032324 DT2 ;SERRPC TSTNUM $BDADR $GDDAT $BDDAT $TMPO 
001532 000000 0 


ERROR 26 = LINE TYPE FAILED ON STACKING 
001534 030465 EM26 ;LINE TYPE STACKING ER 


001536 032030 DHe sERRPC TSTNUM BUSADR EXPCT RCVD STK SEL 
001540 032324 DT2 :SERRPC TSTNUM $BDADR $GDDAT $6DDAT $TMPO 
001542 000000 0 

ERROR 27 = INTENSITY ENABLED FAILED ON STACKING 
001544 030511 EM27 ; INTENSITY ENA STKING ER 
001546 032030 DH2 sERRPC TSTNUM BUSADR EXPCT RCVD STK SEL 
001550 032324 DT2 :SERRPC TSTNUM $BDADR $GDDAT S$BDDAT $TMPO 
001552 000000 0 

ERROR 30 = L.P. INTR ENABLED FAILED ON STACKING 
001554 030541 EM30 ;L.P. INTR ENA STKING ER 
001556 032030 DH2 ;ERRPC TSTNUM BUSADR EXPCT RCVD STK SEL 
001560 032324 DT2 ;SERRPC TSTNUM $B8DADR $GDDAT S$BDDAT $TMPO 
001562 000000 0 

;ERROR 31 = L.P. SWITCH INTR ENABLED FAILED ON STACKING 
001564 030571 EM31 7L.P. SW INTR ENA STKING ER 
001566 032030 DH2 sERRPC TSTNUM BUSADR EXPCT RCVD STK SEL 
001570 032324 DT2 ;SERRPC TSTNUM $BDADR $GDDAT S$BDDAT $TMPO 
001572 000000 0 

ERROR 32 - SHIFT OUT FAILED ON STACKING 
001574 030624 EM32 SHIFT OUT STKING ER 
001576 032030 DH2 sERRPC TSTNUM BUSADR EXPCT RCVD STK SEL 


001600 032324 DT2 :SERRPC TSTNUM $BDADR $GDDAT $BDDAT $TMPO 
000000 0 








Merc VS60 athena Fed 44 PART II] 





I 2 
MACY11 30G6(1063) 17-SEP-79 08:48 PAGE 5 
ERROR POINTER TABLE 


ERROR 33 = POP INSTR FAILED TO INCREMENT THE STACK POINTER 


EM33 i STK Ade taal ER 
DH1 ;ERRPC TSTNUM BUSADR 
‘be ;SERRPC TSTNUM $BDADR 
ERROR 34 = STACK UNDERFLOW FAILED TO SET OR RESET 
EM34 STACK UNDERFLOW ER 
DH1 ;ERRPC TSTNUM BUSADR 
- ;SERRPC TSTNUM $BDADR 
ERROR 35 = DPC FAILED TO RESTORE ON POP INSTR 
EM35 ;DPC POP ER 
DH1 sERRPC TSTNUM BUSADR 
.” ;SERRPC TSTNUM $8DADR 
ERROR 36 - NAME BITS FAILED TO RESTORE ON POP INSTR 
EM36 NAME POP ER 
DH1 sERRPC TSTNUM BUSADR 
are [SERRPC TSTNUM $BDADR 
ERROR 37 = VECTOR SCALE FAILED TO RESTORE ON POP INSTR 
EM37 ;VECTOR SCALE POP ER 
DH1 SERRPC TSTNUM BUSADR 
7 SSERRPC TSTNUM $BDADR 
ERROR 40 = CHAR SCALE FAILED TO RESTORE ON POP INSTR 
EM40 CHAR SCALE POP ER 
DH1 ZERRPC TSTNUM BUSADR 
en ;SERRPC TSTNUM SBDADR 
ERROR 41 = CHAR ROTATE FAILED TO RESTORE ON POP INSTR 
EM41 ;CHAR ROTATE POP ER 
DH1 sERRPC TSTNUM BUSADR 
DT1 ;SERRPC TSTNUM S$BDADR 


EXPCT 
$GDDAT 


EXPCT 
$GDDAT 


EXPCT 
$GDDAT 


EXPCT 
SGDDAT 


EXPCT 
SGDDAT 


EXPCT 
SGDDAT 


EXPCT 
SGDDAT 


RCVD 
$BDDAT 


RCVD 
$BDDAT 


RCVD 
$BDDAT 
RCVD 


SBDDAT 


RCVD 
SBDDAT 


RCVD 
SBDDAT 


RCVD 
S$BDDAT 


J ¢@ 
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031030 


ERROR POINTER TABLE 
sERROR 42 = COLOR LEVEL FAILED TO RESTORE ON POP INSTR 


;COLOR LEVEL POP ER 
sERRPC TSTNUM BUSADR 
;SERRPC TSTNUM $B8DADR 


ERROR 43 = ITALICS FAILED TO RESTORE ON POF INSTR 


; ITALICS POP ER 
;ERRPC TSTNUM BUSADR 
;SERRPC TSTNUM $8DADR 


ERROR 44 = MENU FAILED TO RESTORE ON POP INSTR 


;MENU POP ER 
sERRPC TSTNUM BUSADR 
SSERRPC TSTNUM $BDADR 


; INTENSITY ENA POP ER 
SERRPC TSTNUM BUSADR 
SSERRPC TSTNUM $BDADR 


. INTR ENABLED FAILED TO RESTORE ON POP 
:L.P. INTR ENA POP ER 


;ERRPC TSTNUM BUSADR 
;SERRPC TSTNUM $B8DADR 


EXPCT 
$GDDAT 


EXPCT 
SGDDAT 


EXPCT 
$GDDAT 


INSTR 


EXPCT 
SGDDAT 


INSTR 


EXPCT 
S$GDDAT 


RCVD 
SBDDAT 


. SWITCH INTR ENABLED FAILED TO RESTORE ON POP INSTR 
:L.P. SW INTR ENA POP ER 


sERRPC TSTNUM BUSADR 


EXPCT 


RCVD 


;SERRPC TSTNUM $B8DADR $GDDAT S$BDDAT 


sLINE TYPE POP ER 
sERRPC TSTNUM BUSADR 


EXPCT 


RCVD 


;SERRPC TSTNUM $BDADR $GDDAT S$B8DDAT 


SEQ 0022 
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031231 


ROR POINTER TABLE 


ERROR 57 = INTENSITY LEVEL FAILED TO RESTORE ON POP INSTR 


EM5i ; INTENSITY LEVEL POP ER 

DH1 SERRPC TSTNUM BUSADR EXPCT 

te ;SERRPC TSTNUM $BDADR $GDDAT 
ERROR 52 = BLINK FAILED TO RESTORE ON POP INSTR 

EM52 ;BLINK POP ER 

DH1 sERRPC TSTNUM BUSADR EXPCT 

.*? ;SERRPC TSTNUM $BDADR $GDDAT 
ERROR 53 = MODE FAILED TO RESTORE ON POP INSTR 

EMS3 ;MODE POP ER 

DH1 ;ERRPC TSTNUM BUSADR EXPCT 

ef ;SERRPC TSTNUM $8DADR $GDDAT 
ERROR 54 = STOP INTR ENABLED FAILED TO RESTORE ON POP INSTR 

EMS4 ;STOP INTR ENA POP ER 

DH1 sERRPC TSTNUM BUSADR EXPCT 

3 T1 ;SERRPC TSTNUM $8DADR S$GDDAT 
ERROR 55 = DEPTH QUEING OR DEPTH QUE CONTROL FAILED TO RESTORE 

EMSS ;DEPTH QUE POP ER 

DH1 sERRPC TSTNUM BUSADR EXPCT 

gr ;SERRPC TSTNUM $B8DADR $GDDAT 
ERROR 56 - EDGE INTR ENABLED FAILED TO RESTORE ON POP INSTR 

EMS6 sEDGE INTR ENA POP ER 

DH1 ;ERRPC TSTNUM BUSADR EXPCT 

3 ;SERRPC TSTNUM $B8DADR $GDDAT 
ERROR 57 = CHAR STRING ESCAPE FAILED TO RESTORE ON POP INSTR 

EMS7 ;CHAR STRING ESC POP ER 

DH1 sERRPC TSTNUM BUSADR EXPCT 


‘dh ;SERRPC TSTNUM $B8DADR $GDDAT 


RCVD 
$BDDAT 


RCVD 
SBDDAT 


RCVD 
$BDDAT 


RCVD 
SBDDAT 


ON POP INSTR 


RCVD 
SBDDAT 


RCVD 
SBDDAT 


RCVD 
$BDDAT 


SEQ 0023 
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031433 


031614 
032165 
032360 


ERROR POINTER TABLE 
sERROR 60 - L.P. HIT DISABLE FAILED TO RESTORE ON POP INSTR 


EM60 7;L.P. HIT DISABLE POP ER 

DH ‘ERRPC TSTNUM BUSADR EXPCT 

he :SERRPC TSTNUM $BDADR $GDDAT 
ERROR 61 = SHIFT OUT FAILED TO RESTORED ON POP INSTR 

EM61 ;SHIFT OUT ER 

DH1 sERRPC TSTNUM BUSADR EXPCT 

;SERRPC TSTNUM $B8DADR $GDDAT 
ERROR 62 = TERMINATE CHARACTER FAILED TO POP THE STACK 

EM62 ; TERMINATE CHAR POP ER 

DH1 ;ERRPC TSTNUM BUSADR EXPCT 

a7 ;SERRPC TSTNUM $BDADR $GDDAT 
ERROR 63 - STACK OVERFLOW FAILED ON INTERRUPT 

EM63 :STK OVFLO INT ER 

DH1 sERRPC TSTNUM BUSADR EXPCT 

;SERRPC TSTNUM $8DADR $GDDAT 
ERROR 64 = STACK UNDERFLOW FAILED ON INTERRUPT 

EM64 STK _UNFLO INT ER 

DH1 sERRPC TSTNUM BUSADR EXPCT 

= ;SERRPC TSTNUM $8DADR $GDDAT 
ERROR 65 ~ INCORRECT DELTA LENGTH FOR X OR Y VECTOR INDICATED 

EM65 ;DELTA LENGTH ER 

DH4 sERRPC TSTNUM VECTOR EXPCT 

Se 7SERRPC TSTNUM $TMPO $GDDAT 
ERROR 66 - TANGENT ERROR FOR X OR Y VECTOR INDICATED 

EM66 ; TANGENT ER 

DH4 sERRPC TSTNUM VECTOR EXPCT 


‘e ;SERRPC TSTNUM $TMPQ $GDDAT 


RCVD 
$BDDAT 


RCVD 
$BDDAT 
RCVD 


SBDDAT 


RCVD 
$BDDAT 


RCVD 
SBDDAT 


RCVD 
SBDDAT 


RCVD 
SBDDAT 


SEQ 0024 
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;ERROR 67 = DPC HIGH ORDER BIT 16 & 17 FAILED TO SET OR RESET 
031627 DPC 16-17 ER 


sERRPC TSTNUM BUSADR EXPCT RCVD 
;SERRPC TSTNUM $B8DADR $GDDAT $8DDAT 


;ERROR 70 = VS60 ADDRESS FAILURE ABOVE 28K 


sADRS ER 
zERRPC TSTNUM GD-1716 GD-DPC BD-1716 BD-DPC 
;SERRPC TSTNUM G1716 $GDDAT 81716 S$B8DDAT 


ERROR 71 = STOP FLAG FAILED TO SET WHEN VS60 OPERATING AT FULL SPEED 
:STOP FLAG FAILED TO SET 
;ERRPC TSTNUM BUSADR EXPCT RCVD 
;SERRPC TSTNUM S$BDADR $GDDAT $8DDAT 
ERROR 72 - START FAILED TO CLR STACK BITS & SET ‘TOP OF STACK’ 
START FAILED TO SET ‘TOP OF STK’ 


;ERRPC TSTNUM BUSADR EXPCT RCVD 
;SERRPC TSTNUM S$BDADR S$GDDAT S$8DDAT 


SEQ 6025 
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s;MORE PROGRAM DEF INITIONS 


000000 OPEN= 0 ;LOCATION WILL LATER BE REWRITTEN 
010000 MAINT1= 10000 SINGLE STEP MAINTENANCE BIT = NO NPR ALLOWED 
020000 MAINT2= 20000 SINGLE CYCLE MAINTENANCE BIT - ONE NPR ALLOWED 


000250 KTERRV= 250 KT TRAP ADRS 
177572 = 177572 KT STATUS REG 


;MORE PROGRAM TAGS 


CONTAINS TEST NO OF TEST WITH ERRS# 
COUNTER USED BY DELAY ROUTINE 
[LOCATION SAVES DATA OF LOC USED IN MEM TEST 


:DITTO 

CONTAINS STARTING ADRS OF eee Gk 

NON ZERO ENABLES THE DPC MEM TEST 

;NON ZERO ENABLES THE ABOVE 28k DPC MEM TEST 
CONTAINS LAST 4K PAGE ADRS “Te &Ty ABOVE 28K 
;CONTAINS EXPECTED ADRS BITS 17 & 16 

:CONTAINS ACTUAL ADRS BITS 17 & 16 


:KT11 PAGE ADDRESS REGS & PAGE DESCRIPTOR REGS ADDRESSES 
: 172340 sPAR 0 
: sPDR O 
SPAR 
sPDR 


: ;PAR 
172316 : 172316 PDR 7 
;VS60 REGISTER ADDRESS POINTERS 


tty PROCESSOR PC 
STATUS REG 1 
ix POSITION & wet i INC REG 


EG 2 
2X DYNAMIC OFFSET REG 
7Y DYNAMIC ad Se a 
SASSOCIATE NAME R 
; CONSOLE INDICATORS & COLOR LEVEL 
NAME REG 


TION REG 
7 DYNAMIC OFFSET REG 
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012637 


005037 
132737 


001403 
012737 


001370 


79 11:36 


001100 
001140 
001100 
025116 
000340 
025642 
000340 
027134 
000340 
027204 
000340 
024360 
001166 


000042 
027423 
001256 

002244 
000002 


000002 
002304 


RROR POINTER TABLE 


a 
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001223 
001140 


SOFTWARE INITIALIZATION ROUTINE 


START: 
-SBTTL INITIALIZE THE COMMON TAGS 
3; CLEAR hiss COMMON TAGS (SCMTAG) AREA 


AHSCMTAG ,R6 :sFIRST LOCATION TO BE CLEARED 
CLR (R6) + :sCLEAR MEMORY LOCATION 
CMP MSWR,R6 ; ; DONE? 
ad -~6 :;LOOP BACK IF NO 
SP :sSETUP THE STACK POINTER 


ASTACK 
:: INITIALIZE A FEW VECTORS 
A#SSCOPE ,a#IOTVEC ¢740r VECTOR FOR SCOPE ROUTINE 
MOV cae aviorvecse ;s LEVEL 
MOV SERROR , @MEMT VEC ss EMT VECTOR FOR ERROR ROUTINE 
MOV #360, awEMTVEC+2 sel VEL 7 
MOV #STRAP, AMTRAPVEC :; FRAP VECTOR FOR TRAP CALLS 
MOV #340, @#TRAPVEC+2;LEVEL 7 


MOV #SPWRDN, @APWRVEC ; ;POWER_FAILURE VECTOR 

MOV #340 ,@APWRVEC+2 > LEVEL 7 

MOV SENDCT ,SEOPCT i} SETUP END-OF -PROGRAM COUNTER 

CLR $TIMES say IALIZE NUMBER OF ITERATIONS 

CLR SESCAPE CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB #1, SERMAX ALLOW ONE ERROR PER TEST 

MOV pew :INITIALIZE THE LOOP ADDRESS FOR SCOPE 


MOV PERR UP LOOP ADDRESS 
:;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR 
3;EQUAL TO A ‘=1"', SETUP FOR A SOFTWARE SWITCH REGISTER. 

MOV @VERRVEC.-(SP) ;;SAVE ERROR VECTOR 

MOV #64$,Q¥ERRVEC ;:SET UP ERROR VECTOR 


MOV #DSWR, SWR 7;SETUP FOR A HARDWARE SWICH REGISTER 
MOV MDDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
CMP #~1 ,ASWR pe TRY TO REFERENCE HARDWARE SwWR 
BNE 66$ ;BRANCH IF NO TIMEOUT TRAP OCCURRED 
; 7 AND THE HARDWARE _ IS NOT = -1 
BR 65$ a IF NO TIMEOQU 
64$: MOV #65$, (SP) ;SET UP FOR TRAP RETURN 


65$: MOV ASWREG, SWR :sPOINT TO SOFTWARE SWR 
MOV #D1SPREG, DISPLAY 


66$: MOV (SP)+,@#ERRVEC ;;RESTORE ERROR VECTOR 


CLR $SPASS :sCLEAR PASS COUNT 
BITB MAPTSIZE ,SENVM ee TEST USER SIZE UNDER APT 
BEQ 67$ 7:YES.USE NON-APT SWITCH 
678 MOV AESSWREG, SWR SINO,USE APT SWITCH REGISTER 
TST a442 TEST IF RUNNING CHAIN MODE UNDER XXDP 
BNE START1 3BR IF SO 
TYPE -MSG1 ;GO_ IDENTIFY TEST 
START1: MOV $BASE ,RO ZGET 1ST VS60 BUS ADRS 
MOV #DPC,R1 INITIALIZE VS60 REG POINTER 
SETPTR: MOV RQ, (R1) 7 SET THIS ADR 
ADD #2,R0 sADVANCE TO NEXT REG ADRS 
ADD #2,R1 ;MOVE POINTER TO NEXT REG ADRS 
CMP R1,ADPC+40 HAVE WE DONE ALL REG POINTERS? 


BNE SETPTR ;BR IF NOT 


SEQ 0027 
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000200 
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000250 
000004 
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001600 
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AGS 


INITIALIZE THE COMMON T 


CSIZR: 


1$: 


4$: 


J 
KTSIZR: 


1$: 


CENAB : TURN OFF DPC MEM TEST 
KTENAB ‘TURN OFF KT UPPER MEM TEST 
#2$,aH4ERRVEC SET UP MEM TIMEOUT SERVICE ADRS 
#40000,RO ‘START MEM SIZER GREATER THAN 8K 

RO,R1 :DO ACTUAL TESTING IN R1 

(Ri)+ =CHECK EVEN ADRS 

(R1) ‘CHECK ODD ADRS 

#20000,RO ‘BUMP IT BY 4K 

#160000,RO TARE WE TO 1/0 PAGE? 

1$ ‘BR IF NOT 

KTENAB + "*KTENAB' NON-ZERO MEANS KT11 SIZER REQ 
3$ GO SAVE 28K MEM LIMIT 

(R6)+, (R6)+ FIX STACK SINCE NO RTI ON MEM TIMEOUT 
#ERRVEC +2, a#ERRV vec SRESTORE LOC 4 & 6 

#20000, RO K UP’ TO LAST 4K MEM BLK 

RO, MEMMAX ‘SAVE HIGHEST NON-KT MEM ADRS 
RQ .#20000 [IS THERE MORE THAN 8K? 


BR IF SO 
‘- TYPE CORE AMT = NOTHING OVER 8k 
NON-ZERO REQ DPC MEM TEST 
DO WE NEED TO DO KT MEM SIZER? 
BR IF SO 
PCOR 3;GO TYPE CORE AMT - LESS THAN 28k 
#MKTSER, ae GET UP KT11 TRAP SERVICE Th 
RVEC ;RETURN TO 2$ ON KT TIMOUT 


#2$, ave 
aAkT BRO ; LOOK FOR STATUS REG 

@k IPARO “SET UP FOR TRAPS TO PAGE 0 
#77406,aKIPDRO 34k PAGE LENGTH, EXPAND UP, R/W ACCESS 

“START AT 28K 
24k PAGE LENGTH. EXPAND UP, R/W ACCESS 
T UP 1/0 4K PAGE ADRS 

#77406, aK IPDR7 ‘i PAGE LENGTH, EXPAND UP, R/wW ACCESS 
3$ SSKIP OVER TIMEOUT STUFF 
(R6)+, (R6)+ :FIX STACK SINCE NO RTI 

KTENAB THERE IS NO KT11 
HERRVECS2, avERRVEC SRESTORE 4 & 6 

YPCOR :GO TYPE CORE AMT - KT NOT THERE 

ys @WERRVEC  : SET _ UP NON-EXISTENT MEM TIMEOUT ADRS 

#74,0000,RO ‘START WITH ADRS 0 AT PAGE ADRS IN KIPAR2 
#1400, @#KTSRO  :ENAB KT (MAINT) 
(RO) + [IS THIS BLK THERE? 
(RO) + CK INTERLEAVING ALSO 
#1400, a"KTSRO DISABLE K 
#200,aKIPAR2 — :ADVANCE tp NEXT 4K BLK 
@k IPAR2 ,@KIPAR SARE WE OUT TO 0 128k? 


:BR I 
G0 SET we KTMAX 
SABL 


ark TSRO E K 

(R6)+, (R6)+ “FIX erick SINCE NO RTI 
HERRVEC +2, a#ERRVEC SRESTORE ERRVEC 
#200,aKIPAR2  ;BACK UP TO LAST AVAILABLE BLK 
aK! PARD TTA sSAVE IT 

KTMAX ,4#1600 TARE WE OVER 28K? 

7$ ‘BR IF SO 


KTENAB ;DON'T USE K 
TYPCOR KT THERE aut NOTHING OVER 28k? 


SEQ 0028 
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013700 
00 


105037 


002222 


002214 


000004 
000042 


027530 


027550 


001100 
000340 
001102 


177776 


VS60 INSTRUCTION see" PART III MACY11 30G6(1063) 


INITIALIZE THE COMMON T 


7$: 


TYPCOR: 


TYPMEM: 


T 
RSTART: 


KTMAX ,RO 
R 


-MS 
RO,-(SP) 
»MSG4 
AMSTACK, SP 


#340,PSW 
$TSTNM 


dD 3 
ny a ty 08:48 PAGE 11-2 





SEQ 0029 


GET MAX PAGE ADRS VALUE 
:JUSTIFY RIGHT FOR TYPE 


60 TYPE [T 

:GET TOP 4k BLK re. BELOW 28k 
:SET IT UP FOR TYPE 

:ADJUST FOR TYPE 


:POINT TO LAST ADRS 
TEST IF RUNNING CHAIN MODE UNDER XXDP 


[BR IF SO 
;GO TYPE ‘MEMORY SIZE= 
;SAVE IT ON STK FOR SECIMAL TYPE 
4 TYPE IT 
YPE ‘K* 
‘INITIALIZE THE VS60 
7SET UP STACK POINTER 
:SET UP PSW TO HIGHEST LEVEL 
;CLR TEST NO. ON RESTARTS 


: 
CZVSC=C__VvS60 owls fe TEST PART III MACY11 30G(1063) 17-SEP-79 08:48 PAGE 12 
CZVSCC.P11 29-MAY=79 11:36 SEQ 0030 


- SBTTL 
-SBTTL THESE TESTS USE MAINT. SW 2 
- SBTTL 


LER RARER REE RRR EEE REE ERERERE REAR RARER 
s*TEST 1 TEST THAT THE JSR REL INSTR WILL DECREMENT THE STACK POINTER 
SIAR REE ARE REE HERE ERE ERERR EER AREK ERE RRERH 
TST1: 
000001 poi eo8 MOV #1,$TESIN 37SET TEST NUMBER IN my MAIL BOX 


001122 2 ADRS 
RO ‘SET TOP OF STACK & MAINT SW2 IN RO 
007124 #34,$ ‘WILL EXPECT PTR TO BE 34 INITIALLY 
032374 7165000. BUFFER tSET UP JSR INSTR 
RO, aSTKPT [SET UP STACK PTR 
176702 #RUFFER, @DPC s START 
024446 R5,DELAY :STALL + atersct 


176722 001126 @STKPT,$BDDAT READ STACK POINTER 
177703 001126 #177703,$BDDAT ONLY WANT staan POINTER = TOP OF STK SB 0 
001124 001126 ne »SBDDAT 1S IT CORRECT? 


BR IF OK 
3 ;JSR REL INSTR FAILED TO DECREMENT STACK PTR 
000004 : #4 ,RO ;SET UP NEXT STK PTR VALUE IN RO 
000004 001124 #4, $GDDAT ZADVANCE TO NEXT EXPECTED PTR VALUE 

1$ 7BR IF THIS VALUE NOT TESTED YET 


MRO AESESSSALES 22 SESSA SELRAAL SALAS ARA LAR ALAS SAAR AAA ASRS SRSA SESS SD 


‘eTEST 2 TEST THAT THE STACK OVERFLOW BIT CAN SET 
MOABBESSASASAALZALLZELA£LZESLESLESSAASSES ESE R ESE RE RAR ASRS ARR RSE RRS AR ASRS SS SE | 
ié12: 
001206 #2, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
#340,PSW :SET PRIORITY TO HIGHEST LEVEL 
SREGi,$BDADR  :SET UP REG 12 ADRS 
176632 #20040, @STKPT :RESET THE STACK PTR 
“EXPECT NO OVERFLOW FOR 8 JSR'S 
‘SET UP COUNT FOR 9 JSR 
032374 i :SET UP JSR INSTR 
176554 1$: #BUF FER. aDPC TART 
024446 RS, DELAY i STALL FOR STACKING 


RO COUNT STACKING OPERATION 

2s 7;BR_IF THIS IS OVERFLOW 
020000 176546 #20000,@SREG1 ;SEE THAT OVERFLOW IS NOT SET 

BR IF OVERFLOW NOT SET 

020000 001126 MOV #20000,$BDDAT ;INDICATE STACK OVERFLOW 

4 ZSTACK OVERFLOW SET PREMATURELY 
020000 176526 : #20000, @SREG1 44% ie OVERFLOW SET? 

TST ANCE TO NEXT TEST IF OK 
020000 001124 #20000, $GDDAT ‘EXPECTED STACK OVERFLOW 
001126 CL $BDDAT : INDICATE IT WAS NOT SET 

8 ZSTACK OVERFLOW FAILED TO SET 


WROD RARAAASAASAL A £2 SARA RARRASRSRSERRRRR SEL A RRR RRR RR ERR RR RRR RA RSS S SD! 


TEST 3 TEST THAT START WILL SET ‘TOP OF STACK" 


LF AAAAA AAA RARER EREREAAAAEAEATRAAAAAARAREARAAHAARAEAAKARAA eRe AAAS 








F 
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CZVSCC.P11 29-MAY-79 11:36 T3 TEST THAT START WILL SET ‘TOP OF STACK’ SEQ 0031 
(2) 003546 000004 TST3: SCOPE 
(2) 003550 012737 000003 001206 MOV #3, $STESIN :;SET TEST NUMBER IN APT MAIL BOX 
628 003556 013737 002276 001122 MOV STKPT,$BDADR = SET UP REG 32 A 
629 003564 012737 000040 001124 MOV #40, $GDDAT TEXPECT TOP OF STA 
003572 012777 010037 176476 MOV #10037, aSTKPT SSET ALL STACK BITS. & MAINT 1 
631 003600 005077 176440 CLR aDPC START - NO NPR 
632 003604 017737 176466 001126 MOV @STKPT.SBDDAT “READ STK PTR REG 
633 003612 042737 177701 001126 BIC #177701,$BDDAT :SAVE ONLY STK PTR BITS 
634 003620 023737 001124 001126 CMP SGDDAT , $BDDAT “DID START SET ‘TOP OF STACK? 
635 003626 001401 BEQ TST4 siNEXT TEST IF SO 
ox 003630 104072 ERROR 72 ;START FAILED TO SET ‘TOP OF STACK’ 
638 STARR RR REE RRR KERR ERE EERE RARER EERE EERE REE ERE EH 
(3) s*TEST 4 TEST THAT THE JSR RELATIVE INSTR WILL PUSH DPC ONTO STACK 
(3) FLARE EERE ERR REE REAR RRA EERE EKEKEEERE EEK KK EE 
(2) 003632 000004 TST4: SCOPE 
(2) 003634 012737 000004 001206 MOV #4 ,STESTN :;SET TEST NUMBER IN APT MAIL BOX 
639 003642 013737 002272 001122 MOV STKVAL,$BDADR :SET UP REG 26 ADRS 
640 003650 012737 163000 032374 MOV #163000,BUFFER :SET UP JSR RELATIVE INSTR 
641 003656 012700 000034 MOV #34,RO [SET UP STK SEL AFTER JSR IN RO 
642 003662 012701 020040 MOV #20060,R1 :SET TOP OF STACK & MAINT SW2 INITIALLY IN R1 
643 003666 012737 032376 001124 MOV WBUFFER+2 , $GDDAT sEXPECT ADRS BUFFER+2 ON STACK 
644 003674 012737 003702 001110 MOV #1$.$LPERR :SET UP SCOPE LOOP ADRS 
645 003702 010177 176370 1$: MOV R1,aSTKPT [SET STK PTR BEFORE JSR 
646 003706 012777 032374 176330 MOV WBUFFER,@DPC START 
647 003714 004537 024446 JSR R5, DELAY [STALL FOR STACKING 
648 003720 000001 BITO [COUNT TO 1 
649 003722 010077 176350 MOV RO, a@STKPT [SELECT STK WORD & BYTE 
650 003726 017737 176340 001126 MOV @STKVAL,SBDDAT READ STACK BYTE 
651 003734 042737 000001 001126 BIC #B1T0,$BDDAT  :DON'T WANT LSB 
652 003742 023737 001124 001126 CMP $GDDAT,$BDDAT :DID THE DPC GET STORED Ok? 
653 003750 001403 BEQ 2$ [BR IF OK 
654 003752 010037 001164 MOV RO, STMPO [SET UP STK LEVEL FOR ER TYPE 
655 003756 104005 ERROR 5 ;DPC FAILED TO STACK AT LEVEL INDICATED 
656 003760 162701 000004 2$: SUB #4,R1 TADVANCE TO NEXT STK LEVEL 
657 003764 162700 000004 SUB #4 RO TALL STACK LOCATIONS TESTED? 
658 003770 100344 BPL 1$ :BR IF NOT 
660 TREE ERE REE EEE EEE KER EERE EERE EERE 
(3) :*TEST 5 TEST THAT THE JSR ABS INSTR WILL PUSH DPC ONTO STACK 
(3) STARE AEE EREEERERRERE RE 
(2) 003772 000004 TSTS: SCOPE 
(2) 003774 012737 000005 001206 MOV #5, STESIN {SET TEST NUMBER IN APT MAIL BOX 
661 004002 013737 002272 001122 MOV STKVAL,$BDADR :SET UP REG 26 ADRS 
662 004010 012737 162000 032374 MOV #162000,BUFFER :SET UP JSR ABS INSTR 
663 004016 012737 032400 001124 MOV WBUFFER+4, $GDDAT SEXPCT ADRS BUFFER+4 ON STACK 
664 004024 012701 020040 MOV #20040,R1 :SET TOP’ OF STACK &® MAINT SW2 INITIALLY IN R1 
665 004030 012700 000034 MOV #34 RO [SET UP STACK SEL AFTER JSR IN RO 
666 004034 012737 004042 001110 MOV #1$.SLPERR :SET UP SCOPE LOOP ADRS 
667 004042 010177 176230 1$: MOV R1,aSTKPT [SET UP STACK PTR BEFORE JSR 
668 004046 012777 032374 176170 MOV WRUFFER,@DPC «START 
669 004054 004537 024446 JSR R5, DELAY [STALL FOR STACKING 
670 004060 000001 BITO [COUNT TO 1 
671 004062 005277 176156 INC aPC TADVANCE TO ABS ADRS 


672 004066 004537 024446 JSR R5 DELAY 7 STALL 4 STACKING 
00000 OUNT TO 1 


G 
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CZVSCC.P11 29-MAY-79 11:36 T5 TEST THAT THE JSR ABS INSTR WILL PUSH DPC ONTO STACK SEQ 0032 
674 004074 010077 176176 MOV RO, @STKPT ;SELECT STK WORD & BYTE 
675 004100 017737 176166 001126 MOV @STKVAL , $BDDAT ;READ STACK BYTE 
676 004106 042737 000001 001126 BIC #B1T0,$BDDAT ;DON'T WANT LSB 
677 006114 023737 001124 001126 CMP $GDDAT , $BDDAT DID DPC GET STORED OK? 
678 004122 001403 BEQ 2$ :BR IF OK 
679 004124 010037 001164 MOV RO, $TMPO ;SET UP STK LEVEL FOR ER TYPE 
680 004130 104005 ERROR 5 ;DPC FAILED TO STACK AT LEVEL INDICATED 
681 004132 162701 000004 e$: SUB #4,R1 SADVANCE TO NEXT STK LEVEL 
682 004136 162700 000004 SUB #4 ,RO zALL STACK LOCATIONS TESTED? 
683 004142 100337 BPL 1$ ;BR IF NOT 
68S 
686 DOS IIIIUIIIOIIIOIIIOIIIIIDISIIIIOIIOUIOIOIUIUISIUINIOIOIDISISINIDIDIOIDISINIOIDIOIDIDIIDIDIDIDIDH 
(3) :*TEST 6 TEST THAT THE JSR RELATIVE INSTR WILL PUSH DPC NAME REG ONTO STACK 
(3) DDRII IOIIIOIIIOIIIUIOISIOIOISISIIISIOIOUIUISIUIUIUIUIUIIOIOIOINISISIIUIIIDIIDIIUIOIOISIOIUIIIOIIUIOI 
(2) 004144 000004 TST6: SCOPE 
(1) 004146 012737 000004 001166 MOV #4 ,STIMES 24D 4 ITERATIONS 
(2) 004154 012737 000006 001206 MOV #6, $TESTN ;SET TEST NUMBER IN APT MAIL BOX 
687 004162 012737 153777 032374 MOV #153777 BUFFER SET UP oy | INSTR WITH 3777 
688 004170 012737 163000 032376 MOV #163000 ,BUFFER+2. UP JSR INSTR 
689 004176 012737 077760 001124 MOV #77760,$GDDAT ;EXPECT 5356 a htonee 
690 004204 012737 004222 001110 MOV #2$,$LPERR ;SET SCOPE LOOP ADRS 
691 004212 012701 020040 1$: MOV #20040,R1 :SET TOP OF STACK & MAINT SWe INITIALLY IN R1 
692 004216 012700 000035 MOV #35,RO0 7SET STACK SELECTION AFTER JSR IN RO 
693 004222 010177 176050 2$: MOV R1,@STKPT :SET STK PTR BEFORE JSR 
694 004226 012777 032374 176010 MOV MBUF FER, aDPC START 
695 004234 013737 002272 001122 MOV STKVAL,$BDADR ;SET UP REG — 26 
696 004242 005277 175776 INC aDPC ;DO NEXT INSTR 
697 004246 004537 024446 JSR R5 DELAY 7 ALLOW og FOR STACKING 
698 004252 000001 BITO ;COUNT TO 1 
699 004254 010077 176016 MOV RO,@STKPT [SELECT STK WORD & BYTE 
700 004260 017737 176006 001126 MOV @STKVAL,$BDDAT READ STACK BYTE 
701 004266 042737 100017 001126 BIC #100017,$BDDAT ;ONLY WANT NAME BITS 
702 004274 023737 001124 001126 CMP $SGDDA’,$BDDAT ;DID THE NAME BITS GET STORED OK? 
763 004302 001403 BEQ 3$ BR IF OK 
704 004304 010037 001164 MOV RO,$TMPO :SET UP STK LEVEL FOR ER TYPE 
705 004310 104006 ERROR 6 ;DPC NAME FAILED TO STACK AT LEVEL INDICATED 
706 004312 162701 000004 3$: SUB #4,R1 TADVANCE TO NEXT STK LEVEL 
707 004316 162700 000004 SUB #4,RO zALL STACK LOCATIONS TESTED? 
708 004322 100337 BPL 2$ :BR IF NOT 
709 004324 162737 000020 001124 SUB #20, $GDDAT ;ADVANCE TO NEXT PATTERN 
710 004332 100403 BM! TST? : ; ADVANCE TO NEXT TEST IF ALL PATTERNS TESTED 
711 004334 005337 032374 DEC BUFFER ;SET UP NAME INSTR WITH NEXT PATTERN 
as 004340 000724 BR 1$ :GO TRY NEXT PATTERN 
714 LRA EEE EERE AERA AERA ETA A ARATE Ee 
(3) *TEST 7 TEST THAT THE MODE BITS GET PUSHED ON THE STACK 
(3) LLU EAA AAA AER EEA AAA AEA AAA TERE RR eee 
(2) 004342 TST7: SCOPE 
(1) 004344 012737 000010 001166 MOV #10,$TIMES :D0 10 ITERATIONS 
(2) 004352 012737 000007 001206 MOV #7, STESTN SISET TEST NUMBER IN APT MAIL BOX 
715 004360 005037 001124 CLR SGDDAT Ay Me EXPECT ZERO FOR MODE 
716 004364 005002 CLR R2 ;SET INSTR TO CHAR — Male 
717 004366 012737 163000 032376 MOV oe oe ht ;SET UP je INS 
718 004374 Ui2737 004412 001110 MOV #23.$ 7SET UP LOOP ADRS 
719 004402 012701 020040 1$: MOV 750040, RI ;SET TOP OF STACK & MAINT SwW2 INITIALLY IN R! 


H 3 
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CZVSCC.P11 29-MAY=79 11:36 TEST THAT THE MODE BITS GET PUSHED ON THE STACK SEQ 0033 


#35 RO, :SET UP STK LEVEL AFTER JSR IN RO 
2$: ‘SET STK PTR BEFORE J 
032374 #160000, BUFFER :SET UP INSTR 
R2,BUFFER ZADD IN CURRENT INSTR MODE 
175606 #BUFFER, aDPC s STAR 
007122 STKVAL , $BDADR :SET UP REG ADRS 26 


024446 JS R5,DELAY STALL > meee, 


175614 RO, @STKPT sSELECT STACK io & BYTE 
175604 001126 ;READ MODE BITS 

177760 001126 DON'T WANT NAME BITS 
001124 001126 * ategllosenictey ZARE ~~ BITS CORRECT? 


001164 RO,$TMPO [SET UP STK LEVEL BEFORE ER TYPE 

7 ;MODE FAILED TM STACK AT LEVEL INDICATED 
000004 : #4 ,R1 et TO NEXT STK LEVEL 
000004 #4 ,RO HAS Nyt 3 INSTR MODE BEEN WRITTEN THRU STACK? 


2$ 
044000 #44000,R2 HS THIS THE ABS VECTOR INSTR? 

TST10 :;ADVANCE TO NEXT TEST IF SPARE HAS BEEN TESTED 
004000 #4000,R2 sADVANCE TO NEXT INSTR MODE 
001124 $GDDAT ADVANCE TO NEXT MODE EXPECTED 

1$ ; TRY NEXT INSTR 


FL IRR RR E REE EE EERE EREEEEREKEEREKEEERKEE 
s*TEST 10 TEST THAT THE VECTOR SCALE BITS GET PUSHED ON THE STACK 
CLARE EERE EERE REE EERE ER ERRE ERE REEREEREREEREKEKEEEE ERE EH 
TST10: 
001166 MO #10, $TIMES +:D0 10 ITERATIONS 
T TEST NUMBER IN APT MAIL BOX 
s EXPECT ALL ONES INITIALLY 
;SET UP LOAD STATUS C INSTR 
;SET UP JSR INSTR 


SET UP SCOPE LOOP ADRS 
SET TOP OF STACK & MAINT SW2 INITIALLY IN R1 
SET UP STK LEVEL AFTER JSR IN RO 

[SET STK PTR BEFORE JSR 

START 


As ae $BDADR A 
024446 J RS DELAY :STALL ee CKING 


175414 RO, @STKPT ;SELECT STACK WORD & BYTE 
175404 @STKVAL ,$BDDAT READ be SCALE FROM STACK 
103777 #103777, $BDDAT ;ONLY WANT VECTOR SCALE BITS 
001124 MP ~ paeel mmiete! 7 ARE ag CORRECT? 


IF 
001164 RO, STMPO :SET UP STK LEVEL FOR ER TYPE 
10 VECTOR SCALE i TO STACK AT LEVEL INDICATED 
000004 : #4 ,R1 SADVANCE TO NEXT STK LEVEL 
000004 #4 ,RO ALL — LOCATIONS TESTED? 


2s 
004000 44000, $GDDAT SADVANCE TO NEXT VECTOR SCALE PATTERN 
. TST11 7;ADVANCE TO NEXT TEST IF ALL PATTERNS TESTED 
032374 BUFFER UPDATE INSTRUCTION 
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CZVSCC.P11 29-MAY-79 11:36 T10 TEST THAT THE VECTOR SCALE BITS GET PUSHED ON THE STACK 


004742 000724 BR 1$ TRY NEXT VECTOR SCALE VALUE 


SLATER EEE EEK KEE REE RRRRE ER 
S*TEST 11 TEST THAT THE CHARACTER SCALE BITS GET PUSHED ON THE STACK 
SIAR AREER EER RRR EEE RRR REE REE REE ERE ERE ER 
TST11: SCOPE 
001166 MOV #10,$TIMES ;:D0_10_ ITERATIONS 
#11.$TESTN “SET TEST NUMBER IN APT MAIL BOX 
#3000,$GDDAT | EXPECT ALL ONES INITIALLY 
#154340,BUFFER :SET UP LOAD STATUS C INSTR 
#165000, BUFFER#2_ :SET UP JSR INSTR 
001110 #2$,$ ;SET UP LOOP ADRS 
: 750620. RI :SET TOP OF STACK & MAINT SW2 INITIALLY IN R1 
#36,RO “SET UP STK LEVEL AFTER JSR IN RO 
; R1,aSTKPT ‘SET STK PTR BEFORE JSR 
175210 WBUFFER,@DPC START 
001122 STKVAL ,SBDADR ss: G ADRS 26 


024446 J R5,DELAY STALL FOR STACKING 
;COUNT TO 1 


175216 RO,@STKPT SSELECT STACK WORD & BYTE 
175206 001126 @STKVAL,$BDDAT READ CHARACTER SCALE 
174777 +=001126 #174777 ,SBDDAT ;ONLY WANT CHAR SCALE 
001124 001126 aad mma ARE THEY CORRECT? 


:SET UP_STK LEVEL FOR ER TYPE 

CHARACTER SCALE FAILED TO STACK AT LEVEL INDICATED 
#4,R1 ;ADVANCE TO NEXT STK LEVEL 
#4 ,RO fa ee LOCATIONS TESTED? 


2$ 
001124 #1000, $GDDAT : ADVANCE CHARACTER SCALE PATTERN 
; TST12 ; ADVANCE TO NEXT TEST IF ALL PATTERNS TESTED 
032374 #40 BUFFER [UPDATE INSTRUCTION 
1$ ; TRY NEXT CHARACTER SCALE VALUE 


STARK EERE EERE EERE EEE REE EERE ERE RAE RARER ERE ERE 


s*TEST 12 TEST THAT THE CHARACTER ROTATE BIT GETS PUSHED ON THE STACK 


SLR RRR REAR EAE EERE EERE RAE ERE ERERAEE EEE ERE 


TST12: 
#12, $TESTN :SET TEST NUMBER IN APT MAIL BOX 
#200, S$GDDAT “EXPECT IT TO BE SET INITIALLY 
R :SET UP LOAD STATUS C INSTR 
a 7SET UP JSR INSTR 


up LOOP ADRS 
2 SET TOP OF sTACR & MAINT SwW2 INITIALLY IN R1 
;SET UP STK LEVEL eh JSR IN RO 


| “SET STK PTR BEFORE J 
WBUFFER,@DPC START 
STKVAL , $BDADR :SET UP REG ADRS 26 
175004 aDPC ‘ADVANCE TO JSR INSTR 
024446 JS RS DELAY :STALL FOR STACKING 


175024 MO RO, a@STKPT ; SELECT STACK WORD & BYTE 
asfeva ,$BDDAT :READ CHARACTER ROTATE BIT 
? #177577. $BDDAT “ONLY WANT CHARACTER ROTATE BIT 
023737 SGDDAT,$BDDAT 1S IT CORRECT? 
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818 005274 001403 BEQ 3$ :BR IF OK 
819 005276 010037 001164 MOV RO, $TMPO ‘SET UP STK LEVEL FOR ER TYPE 
820 005302 104012 ERROR 12 “CHARACTER ROTATE FEILED TO STACK AT LEVEL INDICATED 
821 005304 162701 000004 3$: SUB #4,R1 SADVANCE TO NEXT STK LEVEL 
822 005310 162700 000004 SUS #4 “RO TALL STACK LOCATIONS TESTED? 
823 005314 100337 BPL 2$ IF NOT 
824 005316 162737 000400 032374 SUB #400,BUFFER ‘UPDATE INSTR 
825 005324 162737 000200 001124 SUB #200. $GDDAT SEXPECT ZERO NEXT 
826 005332 100324 BPL 1$ “BR IF RESET STATE NOT TESTED 
828 SERRE RE EEEREKEREEEKEEEREEREKEERREREEREERRREREERRER H 
(3) “eTEST 13 TEST THAT THE INTENSITY LEVEL BITS GET PUSHED ON THE STACK 
(3) STREAK REE EERE REE EEE EERE EERE REE EERE REE 
(2) 005334 000004 15113: SCOPE 
(1) 005336 012737 000010 001166 MOV #10, $TIMES ;:D0_10_ITERATIONS 
(2) 005344 012737 000013 001206 MOV #13. $TESTN “SET TEST NUMBER IN APT MAIL BOX 
005352 012737 000160 001124 MOV #160, $GDDAT TEXPECT ALL BITS INITIAL 
005360 012737 103600 032374 MOV #103600,BUFFER :SET UP ALL INTENSITY LEVEL BITS INITIALLY 
831 005366 012737 163000 032376 MOV #163000, BUFFER* ;SET UP JSR INSTR 
B32 005374 012737 005412 001110 MOV #2$,$LPERR :SET uP LOOP ADRS 
833 005402 012701 020040 1$: MOV #20040,R1 ;SET TOP OF STACK & MAINT SW2 INITIALLY IN R1 
834 005406 012700 000036 MOV #36,RO “SET UP STK LEVEL AFTER JSR IN RO 
835 005412 010177 174660 2$: MOV R1,aSTKPT “SET STK PTR BEFORE JSR 
B36 005416 012777 032374 174620 MOV WRUFFER,@DPC START 
837 005424 013737 002272 001122 MOV STKVAL,$BDADR SET UP REG ADRS26 
838 005432 012777 032376 174604 MOV WBUFFER+2,aDPC START 
839 005440 004537 024446 JSR RS, DELAY ‘STALL FOR STACKING 
840 005444 000001 BITO ‘COUNT TO 1 
841 005446 010077 174624 MOV RO, @STKPT SSELECT STACK WORD & BYTE 
B42 005452 017737 174614 001126 MOV @STKVAL,$BDDAT READ INTENSITY LEVEL 
B43 005460 042737 177617 001126 BIC #177617.$BDDAT ONLY WANT INTENISTY LEVEL BITS 
B44 005466 023737 001124 001126 CMP $GDDAT,$BDDAT ARE THEY CORRECT? 
845 005474 001403 BEQ 3$ iBR IF OK 
846 005476 010037 001164 MOV RO, $TMPO “SET UP STK LEVEL FOR ER TYPE 
847 005502 104013 ERROR 13 ‘INTENSITY LEVEL FAILED TO STACK AT LEVEL INDICATED 
848 005504 162701 000004 3$: SUB #4,R1 ‘ADVANCE TO NEXT STK LEVE 
849 005510 162700 000004 SUB #4-RO TALL STACK LOCATIONS TESTED? 
850 005514 100336 BPL 2$ ‘BR IF NOT 
851 005516 162737 000200 032374 SUB #200,BUF FER SET uP NEXT INTENSITY LEVEL 
852 005524 162737 000020 001124 SUB #20,$GDDAT : ADVAN CE TO NEXT INTENSITY LEVEL 
853 005532 100323 BPL 1$ BR If RESET STATE NOT TESTED 
855 SLEEK EERE EERE AREEEEEREREREAARERAEEEERAEEEREEREREEE EE 
(3) SeTEST 14 TEST THAT THE COLOR LEVEL BITS GET PUSHED ON THE STACK 
(3) UREA EEEREREAEREEERERREE REE 
(2) 005534 000004 t$114: SCOPE 
(1) 005536 012737 10 001166 MOV #10, STIMES ::D0 10 ITERATIONS 
(2) 544 012737 000014 001206 MOV #14-$TESTN [:SET TEST NUMBER IN rr Mall BOX 
856 005552 012737 001124 MOV #14-$GDDAT TEXPECT ALL BIT INITIAL 
857 012737 175600 032374 MOV #175600,BUFFER :SET UP ALL COLOR LEVEL ‘BITS INITIALLY 
858 012737 16 032376 MOV #163000. BUF FER+2 ;SET UP JSR INSTR 
859 005574 012737 005602 001110 MOV #1$,$LPERR :SET UP idoP ADRS 
860 005602 012701 020040 1$: MOV #20040,R1 *SET TOP OF STACK & MAINT Su? INITIALLY IN R1 
861 005606 012700 000036 MOV #36,RO “SET UP STK LEVEL AFTER JSR IN RO 
862 005612 010177 174460 2$: MOV R1, aSTKPT “SET STK PTR BEFORE JSR 


863 005616 012777 032374 174420 MOV #BUF FER ,@DPC ; START 





CZVSC=C__VS60 INSTRUCTION "eT PART III 
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013737 

277 
004537 
000001 


002272 
174406 
024446 


174426 


000200 
090004 


001122 


001126 
001126 
001126 


032374 
001124 


001206 
001124 
032374 


MACY11 oe 
114 T THAT THE COLOR LEVEL BITS GET PUSHED ON THE STACK 


;SET UP_REG ADRS 26 
sADVANCE TO JSR INSTR 
STALL FOR STACKING 


;COUNT TO 1 
‘REND STACK WORD & B 


3$: 


K 
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STKVAL , $8DADR 
aDPC 

R5 DELAY 

RO, @STKPT 


—— , SBDDAT 
RO,$TMPO 
14 


#4,R1 
#4 ,RO 


2$ 
#200 ,BUFFER 
#4, $GDDAT 


YTE 
READ COLOR LEVEL FROM STACK 
;SAVE ONLY COLOR LEVEL 
SARE THEY CORRECT? 
BR IF SO 


‘SET UP STK LEVEL FOR ER TYPE 


: COLOR LEVEL FAILED TO STACK AT LEVEL INDICATED 
;ADVANCE TO NEXT STK LEVEL 
ZALL Ae LOCATIONS TESTED? 


IF 
ADVANCE COLOR LEVEL AT INSTR LOC 
ADVANCE COLOR LEVEL AT EXPECTED LOC 


:BR IF RESET STATE NOT TESTED 


SLEEK REE REEREEKEEEEERE KERR ERE KEEREERERE EE 


s*TEST 15 


TST15: 


2s: 


3$: 


SCOPE 


TEST THAT ITALICS GETS PUSHED ON THE STACK 


SRR EKER EERE ERE EEEKE EERE ERE EERE EEREREEREKEEEEREEE REE 


#15 ,$TESTN 


#163000 ,BUFFER 


STKVAL , S8DADR 
aDPC 

R5 DELAY 

RO, @STKPT 
@STKVAL , SBDDAT 
#77777 , SBDDAT 
ar eee 
RO, STMPO 

15 

#4,R1 

#4,R0 

2$ 


#20 BUFFER 
#100000. $6DDAT :R 


7;SET TEST NUMBER IN APT MAIL BOX 


SEXPECT IT TO BE SET INITIALLY 


3 SET UP ITALICS AT INSTR LOC 


SET UP JSR Bio 
;SET UP SCOPE LOOP ADRS 
:SET TOP OF STACK & MAINT ys? INITIALLY IN R1 
;SET UP STK LEVEL oe JSR IN RO 
:SET_ STK PTR BEFORE JSR 


;SET UP_REG ADRS 26 
ADVANCE TO JSR INSTR 


: STALL FOR, STACKING 
i SELECT STACK WORD & BYTE 


READ ITALICS FROM STACK 


SAVE _AONLY ITALICS BIT 
‘BR IF IT ers 


IF § 
T UP STK LEVEL FOR ER TY 


: PE 
sITALICs FAILED TO STACK AT LEVEL INDICATED 


ANCE TO NEXT STK LEVEL 
ALL 7 LOCATIONS TESTED? 


IF 
:RESET ITALICS BIT AT INSTR LOC 
T ITALICS AT EXPECTED LOCATION 


‘BR IF RESET STATE NOT TESTED 


LDR ARR ERE EERE REKEAAEERAAERERRERERERAREAERARERKEEE EE 


:*TEST 16 


TST16: 


SCOPE 
MOV 
MOV 
MOV 


TEST THAT MENU GETS PUSHED ON THE STACK 


5 EAA AEA ARREEKEEAEEE AREER AEEEEAAEEEEREREEEERERER EERE 


#16, $TESTN 
#20000, $GDDAT 
#170003, BUFFER 


3;SET TEST NUMBER IN APT MAIL BOX 
EXPECT IT TO BE SET INITIALLY 
SET UP MENU AT INSTR LOC 


SEQ 0036 


CZVSC=C_ VS60 INSTRUCTION TEST PART I11 
29-MAY-79 11: 


CZVSCC.P11 


up iA 14 


032374 
020000 


024446 
173656 
173646 
077777 
001124 
001164 


000010 
100000 


032376 
001110 


174040 
001122 


001124 


032374 
001124 


aa go tele 
716 THAT MENU GETS PUSHED ON THE STACK 


2$: 


3$: 


TEST 


L 
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A ae op Fees -BUFFER+2 SET UP JSR INSTR 


;SET UP SCOPE LOOP ADRS 
#90060, Rn SET TOP OF STACK & MAINT sW2 INITIALLY IN R1 
#37,R :SET UP STK LEVEL AFTER JSR IN RO 
R1,@STKPT ‘SET STK PTR BEFORE JSR 
#BUF FER, @DPC :ST ART 
STKVAL, $BDADR  :SET UP REG ADRS 26 
‘ADVANCE TO JSR INSTR 
aon DELAY iSTALL FOR, STACKING 
RO, @STKPT ‘SELECT STACK WORD & BYTE 
@STKVAL.$BDDAT READ MENU BIT 


#157777, $BDDAT ;SAVE ONLY MENU BIT 
$GDDAT , $BDDAT :IS IT ; ere 


3$ IF 

RO, STMPO SSET UP STK LEVEL FOR ER TYPE 

16 SMENU FAILED TO STACK AT LEVEL INDICATED 
#4,R1 sADVANCE TO NEXT STK LEVEL 

~~ sALL STACK LOCATIONS TESTED? 


BR IF NOT 
BUFFER ;RESET MENU BIT AT INSTR LOC 
#20000,$GDDAT RESET MENU BIT AT EXPECTED LOC 
1$ [BR IF RESET STATE NOT TESTED 


FARRER EERE AEEEEERERERE EEE EREEEERAREREREEREREERERERERERE EE 


s*TEST 17 


DLR RRA REE RRR KEE EERE KERR EERE RARER REE REE 


TST17: 


1$: 
2$: 


3$: 


SCOPE 


TEST THAT BLINK ENA GETS PUSHED ON THE STACK 


#17, $TESTN 3zSET TEST NUMBER IN APT MAII. BOX 

#100000,$GDDAT ;EXPECT IT TO BE SET INITIALLY 

#100030,BUFFER _;SET UP BLINK ENA AT INSTR LOC 
ER+2 ;SET UP JSR A iy R 


#2$,,$LPERR ;SET UP SCOPE LOOP ADRS 

#20040,R1 SET TOP OF STACK & MAINT =< INITIALLY IN RI 
#37 ,RO SET UP STK LEVEL AFTER JSk IN RO 

R1,@STKPT ;SET STK PTR BEFORE JSR 

#BUF FER, aDPC 


s START 
STKVAL , SBDADR ;SET UP REG ADRS 26 
WBUFFER+2,a@DPC ;START 


R5 DELAY STALL FOR STACKING 
;COUNT TO 1 

RO, @STKPT SSELECT STACK WORD & BYTE 

@STKVAL ,SBDDAT READ BLINK ENA BIT 


#77777,$B8DDAT :SAVE ONLY BLINK ENA 
$GDDAT.$BDDAT :1S IT CORRECT? 
3$ :BR IF SO 


:BR I 
RO, STMPO [SET UP STK LEVEL FOR ER TYPE 
17 ‘BLINK ENA FAILED To STACK AT LEVEL INDICATED 
#4,R1 SADVANCE TO NEXT STK LEVEL 
#4 RO ZALL STACK LOCATIONS TESTED? 
#10,BUFFER TRESET BLINK ENA BIT INSTR LOC 
#100000. $GDDAT RESET BLINK ENA AT EXPECTED LOC 
1$ ‘BR IF RESET TATE NOT TESTED 


J AAA AAA AAR E ARERR EAAAAEARAERAAARAAAARAAAAAAARAARRA RAR RARE 


SEQ 0037 
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:*TEST 20 TEST THAT STOP INTR ENA GETS PUSHED ON THE STACK 
Pa Tahal ha Rahal halal halal hehehehehe lahelaheiehelehalahahehelalahahehahehaielaheheisheheielehelsleislelelelelslsicleioloieielel 
TST20: 
001206 MO #20, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
#1, $GDDAT sEXPECT IT TO BE SET INITIALLY 
#171400,BUFFER :SET UP STOP INTR ENA AT INSTR LOC 
#163000,BUFFER+2. :SET UP JSR INS TR 
:SET UP SCOPE LOOP ADRS 
:SET TOP OF STACK & MAINT SW2 INITIALLY IN R1 
UP STK LEVEL AFTER JSR IN RO 


= SET 
: *SET STK PTR BEFORE JSR 
173460 WBUFFER,@PDPC START 
001122 STKVAL,$BDADR :SET UP REG ADRS 26 
a@DPC ‘ADVANCE TO JSR INSTR 
RS DELAY : STALL FOR, STACKING 


RO,@STKPT SELECT WORD & BYTE 

001126 @STKVAL,$BDDAT ;READ STOP INTR ENA WORD 
#177776,$BDDAT ;SAVE ONLY ots INTR ENA BIT 
$GDDAT , SBDDAT ‘i iY CORRECT? 


so 
7 SET UP STK LEVEL FOR ER TYPE 
TOP INTR ENA FAILED TO STACK AT LEVEL INDICATED 


#4 ,R1 ADVANCE TO NEXT STK LEVEL 
#4 ,RO ALL STACK LOCATIONS TESTED? 


032374 UB #400 ,BUF FER RESET STOP INTR ENA AT INSTR LOC 
$GDDAT 


RESET STOP INTR ENA AT EXPECTED LOC 
1$ “BR IF RESET STATE NOT TESTED 


SL RRR AERA EERE ERE REE REAR EERE KEE EE 


S*TEST 21 TEST THAT L.P. HIT DISABLE GETS PUSHED ON THE STACK 


J LRA EER REE RRR EERE EERE ERE EKER EEE 


TST21: 
#21,$TESIN 7;SET TEST NUMBER IN APT MAIL BOX 
Sr PECT IT TO BE SET INITIALLY 
IT DISABLE AT —— LOC 
SET UP JSR ken ~ di 
*¢ SET uP SCOPE LOOP AD 
SET TOP OF STACK & MAINT a INITIALLY IN R1 
SET UP STK LEVEL AFTER JSR IN RO 
aH 7™ PTR BEFORE JSR 


STKVAL , SBDADR Set UP_REG ADRS 26 
aDPC ZADVANCE TO JSR INSTR 
R5 DELAY + hye oot Sane 


; COUN 
RO, @STKPT ;SELECT WORD & BYTE 
@STKVAL,$BDDAT READ LP HIT DISABLE WORD 
#177775,$BDDAT SAVE ONLY LP HIT DISABLE BIT 
SGDDAT,SBDDAT ;IS IT CORRECT? 


3$ ‘BR IF SO 

RO, $TMPO :SET Ms STk LEVEL FOR ER TYPE 

21 os -P. HIT DISABLE FAILED 10 STACK AT LEVEL INDICATED 
#4-RO “ALL STACK LOCATIONS TESTED? 


S332 


SESSSSRSsssE 


ke etd nd od od J od os 
-o 


oo 
=34 





N 
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1012 007040 Ube th BPL 2$ ;BR IF NOT 
1013 007042 162737 000100 032374 SUB #100, BUFFER ;RESET LP HIT DISABLE BIT AT INSTR LOC 
1014 007050 162737 000002 001124 SUB #2,$GDDAT ;RESET LP HIT DISABLE BIT AT EXPECTED LOC 
1015 007056 100324 BPL 1$ ;BR IF RESET STATE NOT TESTED 
1016 PITTI ITI TI TIT ITT TIT tit itiTitititiititiiititititti tit t itis tit 
(3) SSTEST 22 TEST THAT STOP INTR & L.P. HIT ENABLES DON'T CHANGE WHEN CHANGE ENA=0 
(3) DBAS IIIS IIIS IOISIOIISISIIISIIOIIIIIUIUIOIOIOIOIISIOIOIOIOIIIOIOK 
(2) 007060 000004 TST22: SCOPE 
(2) 007062 012737 000022 001206 MOV #22, $TESTN 3zSET TEST NUMBER IN APT MAIL BOX 
1017 007070 012737 000003 001124 MOV i DAT sEXPECT STOP INTR ENABLED & L.P. HIT FROM STK 
1018 007076 012737 171700 032374 MOV #1 71700, BUFFER ;SET UP LOAD STATUS A INSTR 
1019 007104 012737 163000 032376 MOV #163000 ,BUF FER+2 ;SET UP JSR REL INSTR 
1020 007112 012777 020040 173156 1$: MOV #20040, a@STKPT #SET "TOP OF STACK 
1021 007120 012777 032374 173116 MOV BUF FER, aDPC TART 
1022 007126 013737 002272 001122 MOV STKVAL, $8DADR :SET UP REG ADRS 26 
1023 007134 005277 173104 INC a@DPC PICK UP JSR INSTR 
1024 007140 004537 024446 JSR R5,DELAY “STALL FOR STACKING 
1025 007144 000001 BITO + COUNT TO ONE 
1026 007146 012777 020037 173122 MOV #20037 ,aSTKPT SET STACK PTR 
1027 007154 017737 173112 001126 MOV @STKVAL, SBDDAT “RE STACK 
1028 007162 042737 177774 001126 BIC #177774,$BDDAT ;SAVE ONLY STOP INTR &L.P. HIT 
1029 007170 023737 001124 001126 CMP SGDDAT, $BDDAT ;SHOULD STAY ald ONCE CHANGE ENABLES ARE OFF 
1030 007176 001404 BEQ 2$ ‘BR IF CORRECT 
1031 007200 012737 000037 001164 MOV 437, $TMPO + SAVE STACK LEVEL FOR TYPE 
1032 007206 104022 ERROR 22 ;LD STATUS A STROBED WHEN CHANGE ENA=0 
1033 007210 022737 171700 032374 2%: CMP #171700, BUFFER 21S THIS THE 2ND PASS? 
1034 007216 001004 BNE TST23 3GO TO NEXT TEST IF TESTED WITH CHANGE ENA=0 
1035 007220 042737 001700 032374 BIC #1700 ,BUFFER [CLR CHANGE ENABLES FOR 2ND PASS THIS TEST 
be 007226 000731 BR 1$ :GO REPEAT TEST WITH CHANGE ENABLES OFF 
1038 
1039 DISC I II IOIIIOIOIOIIIIIIOI III ICICI TOT TOT TE TT TT OTE 
(3) i*TEST 23 TEST THAT EDGE INT ENA GETS PUSHED ON THE STACK 
(3) DAA ISIIOIUIIIIIIIDIIOIOIIIISIOIOIOIOIOIIUIIIOIUIOIOIIUIDIIUIDIOIDIOIOIOIIIDITIIOIOIIDIOIIEE 
(2) 007230 000004 TST23: SCOPE 
(2) 007232 012737 000023 001206 MOV #23, $TESTN 3;SET TEST NUMBER IN APT MAIL BOX 
1040 007240 012737 004000 001124 MOV #4000, SGDDAT sEXPECT IT TO BE SET INITIALLY 
1041 007246 012737 176060 032374 MOV #176060,BUFFER ;SET UP EDGE INT ENA AT INSTR LOC 
1042 007254 012737 163000 032376 MOV #163000,BUFFER+2° :SET UP JSR pa 
1043 007262 012737 007300 001110 MOV #2$ SLPERR 7SET UP SCOPE LOOP ADRS 
1044 007270 012701 020040 1$: MOV #20040 :SET TOP OF STACK & MAINT _ INITIALLY IN R1 
1045 007274 012700 000037 MOV #37 = 7SET UP STK LEVEL AFTER JSR IN RO 
1046 007300 010177 172772 2$: MOV R1, @STKPT SET STK PTR BEFORE JSR 
1047 007304 012777 032374 172732 MOV #BUF FER, aDPC SSTART 
8 007312 013737 002272 001122 MOV —e. $BDADR SET UP REG ADRS 26 
1049 007320 005277 172720 INC zADVANCE TO JSR INSTR 
1050 007324 004537 024446 JSR RS DELAY :STALL FOR STACKING 
1051 007330 000001 BITO ;COUNT TO 1 
1052 007332 010077 172740 MOV RO,@STKPT ;SELECT WORD & BYTE 
1053 007336 017737 172730 001126 MOV @STKVAL, SBDDAT ;READ STACK WORD 
007344 042737 173777 001126 BIC #173777, $B8DDAT ;SAVE ONLY con INT ENA BIT 
1055 007352 023737 001124 001126 CMP SGDDAT , $BDDAT :IS IT CORRECT? 
1056 007 001403 BEQ 3$ IF SO 
1057 007362 010037 001164 MOV RO, STMPO “SET UP STK LEVEL FOR ER TYPE 


1058 007366 104023 ERROR 23 EDGE INTR ENA FAILED TO STACK AT LEVEL INDICATED 
1059 007370 162701 000004 3$: SUB #4 ,R' ADVANCE TO NEXT STK LEVEL 


B 4 
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000004 ot RO sALL ie LOCATIONS TESTED? 


:BR IF NO 
000020 032374 #20 ,BUFFER RESET EDGE INT ENA BIT AT INSTR LOC 
004000 001124 #4000, SGDDAT ;RESET EDGE INT ENA BIT AT EXPECTED LOC 
1$ 7BR IF RESET STATE NOT TESTED 


SLA 
TeTEST 26 TEST THAT CHAR STRING ESCAPE BIT GETS PUSHED ON THE STACK 
LEAR REERAEREEREEREREEERRERRREREERRE EERE ERR E EERE ERE H 
TST24: 
001206 MOV #24,$TESTN :;SET TEST NUMBER IN APT MAIL BOX 
#10000, $GDDAT EXPECT IT TO BE SET INITIALLY 
#176003, BUFFER ‘SET UP CHAR STRING ESCAPE ENA AT INSTR LOC 
#163000,BUFFER+2. ;SET UP JSR adNST 
#2$ SLPERR ;SET UP SCOPE LOOP AD ~ 
#20040,R1 ‘SET TOP OF STACK & MAINT SW2 INITIALLY IN RI 
#37,RO ‘SET UP STK LEVEL AFTER JSR IN RO 
: R1,aSTKPT ‘SET STK PTR BEFORE JSR 
172542 WBUFFER,@DPC = :STAR 
001122 STKVAL,$BDADR  :SET UP REG ADRS 26 
aDPC SADVANCE TO my INSTR 
024446 RS DELAY ‘STALL FOR STACKING 
‘COUNT TO 1 
172550 RO, @STKPT ‘SELECT STACK WORD & BYTE 
@STKVAL,$B8DDAT :READ STACK 
#167777.$BDDAT :SAVE ONLY CHAR STRING ESCAPE BIT 
SCDDAT , SBDDAT is iT CORRECT? 


$ ; 
RO,STMPO ;SET UP STK LEVEL FOR ER TYPE 
24 CHAR STRING ESCAPE FAILED TO STACK AT LEVEL INDICATED 
#4,R1 ;ADVANCE TO NEXT STK LEVEL 
#4 ,RO zALL STACK LOCATIONS TESTED? 
2$ :BR_IF NOT 
032374 BUFFER RESET CHAR STRING ESCAPE AT INSTR LOC 
010000 001124 #10000,$GDDAT ;RESET CHAR STRING ESCAPE AT EXPECTED LOC 
1$ :BR IF RESET STATE NOT TESTED 


MASSA SAAL££ 22222 SESE ESSRLE SESE SEALE SES EAR RRS RAR RAR RA RRS ASAD OS 


TTEST 25 TEST THAT DEPTH QUEING BIT GETS PUSHED ON THE STACK 


MASSASASESA£ SSS ESESSE SASSER SE ERE ESSERE ERASER ARR ARERR RR SASS SY 


18125: 


SEFERES 


at a a a 


MMRWW 
Swe ee 


#25, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
#2000,$GDDAT  :EXPECT IT TO BE SET INITIALLY 
#176014,BUFFER :SET UP DEPTH QUEING AT INSTR LOC 
#163000 .BUFFER+2” :SET UP JSR REL INSTR 


;SET UP SCOPE LOOP 
;SET TOP OF STACK & MAINT + * INITIALLY IN R1 
SET UP STK LEVEL AFTER JSR IN RO 


; “SET STK PTR BEFORE JSR 
172354 WBUFFER,@DPC =: START 
001122 STKVAL,$BDADR :SET UP REG ADRS 26 
aDPC ‘ADVANCE TO JSR INSTR 
024446 J a5 DELAY STALL FOR STACKING 
‘COUNT TO 1 


010077 172362 MO RO, @STKPT [SELECT STACK WORD & BYTE 
017737 172352 001126 @STKVAL,$BDDAT :READ STACK WORD 


ee ed ed do od 


2 wo YS 
QVRSRELLES 





; 
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CZVSCC.P11 29-MAY=79 11:36 THAT DEPTH QUEING BIT GETS PUSHED ON THE STACK 
1108 007722 042737 175777 001126 BIC #175777,$BDDAT ;SAVE ONLY DEPTH QUEING BIT 
1109 007730 023737 001124 001126 CMP $GDDAT,$BDDAT :IS IT CORRECT? 
1110 007736 001403 BEQ 3$ :BR IF SO 
1111 007740 010037 001164 MOV RO,$TMPO :SET UP STK LEVEL FOR ER TYPE 
1112 007744 104025 ERROR 25 ‘DEPTH QUEING FAILED TO STACK AT LEVEL INDICATED 
1113 007746 162701 000004 3$: SUB #4 ,R1 sADVANCE TO NEXT STK LEVEL 
1114 007752 162700 000004 SUB #4,RO sALL STACK LOCATIONS TESTED? 
1115 007756 100337 BPL 2$ :BR IF NOT 
1116 007760 162737 000004 032374 SUB #4 BUFFER sRESET DEPTH QUEING BIT AT INSTR LOC 
1117 66 162737 002000 001124 SUB #2000, $GDDAT :RESET DEPTH QUEING BIT AT EXPECTED LOC 
13 007774 100324 BPL 1$ :BR IF RESET STATE NOT TESTED 
1120 CL RR RRR REE ERE EERE EKER EERE EERE EEE EERE REE EE 
(3) :*TEST 26 TEST THAT THE DEPTH QUE CONTROL GETS PUSHED ON THE STACK 
(3) FL RRR RRR ERE REE RRR RRR EERE AKER EKER ERE REE RE 
(2) 007776 000004 TST26: SCOPE 
(2) 010000 012737 000026 001206 MOV #26, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
1121 010006 012737 000400 001124 MOV #400, $GDDAT sEXPECT IT TO BE SET INITIALLY 
1122 010014 012737 176300 032374 MOV #176300,BUFFER :SET UP DEPTH QUE CONTROL AT INSTR LOC 
1123 010022 012737 163000 032376 MOV #163000 ,BUFFER+2 :SET UP JSR REL INSTR 
1124 010030 012737 010046 001110 MOV #2$,$LPERR zSET UP SCOPE LOOP ADRS 
1125 010036 012701 020040 1$: MOV #20040,R1 :SET TOP OF STACK & MAINT SW2 INITIALLY IN R1 
1126 010042 012700 000037 MOV #37,RO sSET UP STK LEVEL AFTER JSR IN RO 
1127 010046 010177 172224 2$: MOV R1,aSTKPT :SET STK PTR BEFORE JSR 
1128 010052 012777 032374 172164 MOV ABUF FER, aDPC = START 
1129 010060 013737 002272 001122 MOV STKVAL,$BDADR  ;SET UP REG ADRS 26 
1130 010066 005277 172152 INC aDPC :ADVANCE TO JSR INSTR 
1131 010072 004537 024446 JSR R5,DELAY sSTALL FOR STACKING 
1132 010076 000001 BITO COUNT TO 1 
1133 010100 010077 172172 MOV RO, @STKPT :SEL STK WORD & BYTE 
1134 010104 017737 172162 001126 MOV @STKVAL,$BDDAT ;READ STACK WORD 
1135 010112 042737 177377 001126 BIC #177377,$BDDAT ;SAVE ONLY DEPTH QUE CONTROL 
1136 010120 023737 001124 001126 CMP $GDDAT,$BDDAT ;1S IT CORRECT? 
1137 010126 001403 BEQ 3$ :BR IF SO 
1138 010130 010037 001164 MOV RO, STMPO :SET UP STK LEVEL FOR ER TYPE 
1139 010134 104025 ERROR 25 :DEPTH QUE CONTROL FAILED TO STACK 
1140 010136 162701 000004 3$: SUB #4,R1 sADVANCE TO NEXT STK LEVEL 
1141 010142 162700 000004 SUB #4,R0 sALL STACK LOCATIONS TESTED? 
1142 010146 100337 BPL 2$ :BR IF NOT 
1143 010150 162737 000100 032374 SUB #100, BUFFER sRESET DEPTH QUE CONTROL BIT AT INSTR LOC 
1144 010156 162737 000400 001124 SUB #400, $GDDAT sRESET DEPTH QUE CONTROL AT EXPECTED LOC 
1165 010164 100324 BPL 1$ “BR IF RESET STATE NOT TESTED 
1147 DI III RRR REE RE REE RRR RR 
(3) s*TEST 27 TEST THAT BITS SET BY LOAD STATUS B' DON'T CHANGE WHEN CHANGE ENA=0 
(3) SPARE RARER ERA EEE ERE REE EEREEEREERE ERE ERE 
(2) 010166 000004 TS127: SCOPE 
(1) 010170 012737 000040 001166 MOV #40, $TIMES 7:D0 40 ITERATIONS 
(2) 010176 012737 000027 001206 MOV #27, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 
1148 010204 012737 016400 001124 MOV #16400, $GDDAT  ;EXPECT ALL LOAD STATUS B’ ENABLED BITS FROM STK 
1149 010212 012737 176377 032374 MOV #176377,BUFFER :SET UP LOAD STATUS B' INSTR 
1150 010220 012737 163000 032376 MOV #163000 ,BUFFER+2 sSET UP JSR REL INSTR 
1151 010226 012777 020040 172042 1$: MOV #20040,aSTKPT ;SET ‘TOP OF STACK’ 
1152. 010234 012777 032374 172002 MOV #BUF FER, aDPC : START 
1153 010242 013737 002272 001122 MOV STKVAL,$BDADR  ;:SET UP REG ADRS 26 
1154 010250 000240 NOP sALLOW TIME FOR NPR 
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MACY11 og 
T27 SEC 0042 


INC apPc PICK UP _JSR_INSTR 
JSR R5,DELAY ZSTALL FOR STACKING 
BITO :COUNT TO 1 
MOV #20037,@STKPT SET STK PTR 
MOV @STKVAL ,SBDDAT READ STACK 
BIC #161377,$BDDAT SAVE ONLY DEPTH QUE, EDGE FLG & CHAR STRING 
CMP SGDDAT, , SBDDAT s THEY SHOULD ‘STAY SET ONCE CHANGE ENABLES ARE OFF 
MOV #37, STMPO SAVE STACK LEVEL FOR TYPE 
ERROR 2 SLD STATUS B' STROBED WHEN CHANGE ENA=0 
2s: TSTB «BUFFER ;1$ THIS THE SECOND PASS THIS TEST? 
BPL 3$ [GO TO NEXT TEST IF TESTED WITH CHANGE ENA=0 
BIC #377 BUFFER :CLR OUT CHANGE ENABLES FOR 2ND PASS THIS TEST 
BR 1$ :GO REPEAT TEST WITH ENA=0 
3$: RESET [CLR ENABLES BEFORE ADVANCING 
: FERRER ERE EERE EERE ERE EKRRERREREEE EH 
*TEST 30 TEST THAT THE LINE TYPE BITS GETS PUSHED ON THE STACK 
S FARRER RARER RRR KEE EERE EERE EERE EEE ERE ERE 
TST30: SCOPE 
MOV #30, $TESTN ;;SET TEST NUMBER IN APT MAIL BOX 
MOV #3, $GDDAT ;EXPECT BOTH BITS INITIALLY 
MOV #100007 .BUFFER :SET UP BOTH LINE TYP BITS AT INSTR LOC 
MOV #163000 ,BUFFER+2 {SET _UP JSR INSTR 
MOV #2$ SLPERR ;SET UP SCOPE LOOP ADRS 
1$: MOV #20 20040, 7SET TOP OF STACK & MAINT SW2 INITIALLY IN R1 
MOV #36,R SET UP STK LEVEL AFTER JSR IN RO 
2s: MOV RT aSTKPT ZSET STK PTR BEFORE JSR 
MOV WBUFFER,@DPC —; START 
MOV STKVAL,$BDADR SET UP REG ADRS 26 
MOV WBUFFER+2,aDPC ;START 
JSR R5 DELAY STALL FOR STACKING 
BITO ;COUNT TO 1 
MOV RO, @STKPT 7SELECT STACK WORD & BYTE 
MOV @STKVAL,$BDDAT READ STACK 
BIC #177774,$BDDAT SAVE LINE TYPE ONLY 
CMP S$GDDAT,$BDDAT ARE THEY CORRECT? 
BEQ 3$ ;BR_IF SO 
MOV RO, $TMPO SET UP STK LEVEL FOR ER TYPE 
ERROR 26 [LINE TYPE FAILED TO STACK AT LEVEL INDICATED 
3$: SUB #4,R1 ;ADVANCE TO NEXT STK LEVEL 
SUB #4 ,RO ALL STACK LOCATIONS TESTED? 
BPL 2$ ;BR IF NOT 
DEC BUFFER TADVANCE LINE TYPE AT INSTR LOC 
DEC $GDDAT ZADVANCE LINE TYPE AT EXPECTED LOC 
BPI 1$ BR IF RESET STATE NOT TESTED 
DLR E AERA REE EERE REAR ERERREE RAE 
*TEST 31 TEST THAT INTENSITY ENABLED (CONSOLE 0) GETS PUSHED ON THE STACK 
SU AAA ARR -ASRSRSSESSLASESASEESESE RES RRR AER SERRA EER ARR RASA RRS ESS SY 
7$131: SCOPE 
MOV #31 ,STESTN ::SET TEST NUMBER IN APT MAIL BOX 
MOV #4, $GDDAT ;EXPECT IT TO BE SET INITIALLY 
MOV #164300,BUFFER _:SET UP INT EN AT INSTR LOC 
MOV #163000 .BUFFER+2° :SET UP JSR REL INSTR 
MOV #2$,$LPERR ;SET UP SCOPE LOOP ADRS 
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131 T THAT INTENSITY ENABLED (CONSOLE 0) GETS PUSHED ON THE STACK SEQ 0043 
1$: MOV #20040, R1 ;SET TOP OF STACK & MAINT SW2 INITIALLY IN RI 
MOV #37,RO “SET UP STK LEVEL AFTER JSR iN RO 
2$: MOV R1,aSTKPT “SET STK PTR BEFORE JSR 
MOV WBUFFER,@DPC START 
MOV STKVAL , $BDADR :SET UP _REG ADRS 26 
INC DPC ADVANCE TO JSR INSTR 
JSR aS, DELAY ;STALL FOR STACKING 
BITO T 101 
MOV RO, @STKPT “SELECT STK WORD & BYTE 
MOV @STKVAL,$BDDAT READ STK BYTE 
BIC #177773,.$BDDAT :SAVE ONLY INTENSITY ENABLED BIT 
CMP SGDDAT, $BDDAT 31S IT CORRECT? 
BEQ 3$ IF OK 
MOV RO, $TMPO ‘SET UP STK LEVEL FOR ER TYPE 
ERROR 27 ‘INTENSITY ENABLE FAILED TO STACK AT LEVEL INDICATED 
3$: SUB #4,R1 TADVANCE TO NEXT STK LEVEL 
SUB #4-RO GALL STACK LOCATIONS TESTED? 
BPL 2$ IF NOT 
SUB #100,BUFFER ‘SET UP RESET STATE AT INSTR LOC 
SUB #4, $GDDAT ‘SET UP RESET STATE AT EXPECTED LOC 
BPL 1$ ‘BR IF RESET STATE NOT TESTED 
SDR RRR REE EER ERE EEE EERE REE EERE ERE EERE ERE EERE EH 
S*TEST 32 TEST THAT INTENSITY ENABLED (CONSOLE 1) GETS PUSHED ON THE STACK 
MASBRBARBASRAAL£AA£2 2 £22 SLRS ESSLASSERSSSESES SSE SRR RRR LARA RAR AAR ASRS ASSES S| 
1$132: SCOPE 
MOV #32,$TESTN i SET TEST NUMBER IN APT MAIL BOX 
MOV STKVAL,$BDADR :SET UP REG 26 ADRS 
MOV #20, $GDDAT ‘EXPECT IT TO BE SET INITIALLY 
MOV #164700,BUFFER :SET UP INT EN AT INSTR LOC 
MOV #163000,BUFFER+2. :SET UP JSR REL INSTR 
MOV #2$ SLPERR :SET UP SCOPE LOOP ADRS 
1$: MOV #20040, ‘SET TOP OF STACK & MAINT SW2 INITIALLY IN R1 
MOV #37 ve SSET UP STK LEVEL AFTER JSR IN RO 
2$: MOV R1,aSTKPT *SET STK PTR BEFORE JSR 
MOV WBUFFER,@DPC =: START 
MOV STKVAL,$B8DADR SET UP REG ADRS 26 
INC apPC SADVANCE TO JSR INSTR 
JSR R5, DELAY :STALL FOR STACKING 
BITO T TO 1 
MOV RO, @STKPT [SEL STK WORD & BYTE 
MOV @STKVAL.$8DDAT :READ STK BYT 
BIC #177757.$8DDAT :SAVE ONLY INTENSITY ENABLED BIT 
CMP SGDDAT,$BDDAT 1S iT CORRECT? 
BEQ 3$ F OK 
MOV RO, STMPO “SET UP STK LEVEL FOR ER TYPE 
ERROR 27 ‘INTENSITY ENABLE FAILED TO STACK AT LEVEL INDICATED 
3$: SUB #4,R1 SADVANCE TO NEXT STK LEVEL 
SuB #4-RO ZALL STACK LOCATIONS TESTED? 
SUB #100,BUFFER “SET UP RESET STATE AT INSTR LCC 
SUB #20, $GDDAT ‘SET UP RESET STATE AT EXPECTED LOC 
BPL 1$ ‘BR IF RESET STATE NOT TESTED 


DP UA AERA ERA EAAR EAA AERERERKEEE 
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133 TEST THAT L.P. INTR ENABLED (CONSOLE 0) GETS PUSHED ON THE STACK SEQ 0044 
SLUR E RE REARERAEERERREEREREREREKERKRREE RE RRAEERERERERERAERRRE REE 
TST33: SCOPE 
MOV #33 ,$TESTN 7;SET TEST NUMBER IN APT MAIL BOX 
MOV #10,$GDDAT EXPECT IT TO BE SET INITIALLY 
MOV #164060,BUFFER ;SET UP L.P. INTR EN AT_INSTR LOC 
MOV #163000 ,BUFFER+2 SET UP o". INSTR 
MOV #2$ SLPERR SET UP SCOPE LOOP ADRS 
1$: MOV. #20040 :SET TOP OF STACK & MAINT ae INITIALLY IN R1 
MOV #37, RO’. SET UP STK LEVEL AFTER JSR IN RO 
2s: MOV R1,@STKPT 7SET STK PTR BEFORE JSR 
MOV #BUF FER, @DPC : START 
MOV STKVAL , $BDADR SET UP REG ADRS 26 
INC aDPC ;ADVANCE TO JSR INSTR 
JSR R5,DELAY :STALL FOR STACKING 
BITO T 70 1 
MOV RO,@STKPT SEL STK WORD & BYTE 
MOV @STKVAL,$8DDAT READ STK BYTE 
BIC #177767, $BDDAT ;SAVE ONLY L. ? INTR ENABLED BIT 
CMP SGDDAT,SBDDAT ;1S IT CORRECT? 
BEQ 3$ :BR_IF SO 
MOV RO,$TMPO ;SET UP STK LEVEL FOR ER TYPE 
ERROR 30 :L.P. INTR a ae tke TO STACK AT LEVEL INDICATED 
3$: SUB #4 ,R1 ;ADVANCE TO NEXT STK LEVEL 
SUB #4 ,RO ALL STACK LOCATIONS TESTED? 
BPL 2$ IF NOT 
SUB #20, ,BUFFER :SET UP RESET STATE AT INSTR LOC 
SUB #10, $GDDAT ZSET UP RESET STATE AT EXPECTED LOC 
BPL 1$ [BR IF RESET STATE NOT TESTED 


DEAE EERE REAR EKER ERE RARER AREER ERR 


i*TEST 34 TEST THAT L.P. INTR ENABLED (CONSOLE 1) GETS PUSHED ON THE STACK 


SEAR RRR REE EEE EERE EERE EERE REAR AREER EERE EERE EH 


TST34: 


1$: 
2$: 


3$: 


SCOPE 
MOV #34, $TESTN 7;SET TEST NUMBER IN APT MAIL BOX 
MOV #40, $GDDAT EXPECT IT TO BE SET INITIALLY 


MOV #164460,BUFFER ;SET UP L.P. INTR EN AT INSTR LOC 
FFER+2. 3 SET yf ye INSTR 


MOV #2$,$LPERR : SET uP SCOPE 

MOV #20040,R1 SET TOP OF STACK & MAINT sw? INITIALLY IN R1 
MOV #37,RO :SET UP STK LEVEL AFTER JSR IN RO 

MOV R1,aSTKPT :SET STk PTR BEFORE J 


MOV #BUF FER , aDPC 
MOV STKVAL , S8DADR Set Up REG ADRS 26 


INC aDPC ZADVANCE TO ask INSTR 
JSR R5 DELAY STALL FOR STACKING 
BITO ;COUNT TO 1 

MOV RO, @STKPT [SEL STK WORD & BYTE 


MOV @STKVAL , SBDDAT :READ STK BYTE 
BIC #177737, $BDDAT AVE ONLY L. a INTR ENABLED BIT 
CMP al DAT 1S IT CORRECT? 


=o: 


BEQ BR IF SO 

MOV RO, STMPO SET UP STK LEVEL 4 ER TYPE 

ERROR 306 :L.P. INTR ENABLE FAILED TO STACK AT LEVEL INDICATED 
SUB #4,R) SADVANCE TO NEXT STK LEVEL 

SUB #4 ,RO ZALL STACK LOCATIONS TESTED? 


BPL 2$ ‘BR IF NOT 
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CZVSCC.P11 29-MAY-79 11:36 134 TEST THAT L.P. INTR ENABLED (CONSOLE 1) GETS PUSHED ON THE STACK 
1303 011464 162737 000020 032374 SUB #20,BUFFER ;SET UP RESET STATE AT INSTR LOC 
1304 011472 162737 000040 001124 SUB #40, $GDDAT ;SET UP RESET STATE AT EXPECTED LOC 
le 011500 100324 BPL 1$ ;BR IF RESET STATE NOT TESTED 
1307 DOIG SIUISIDIORIUIDISIOIOIIISIOIOIOIOIOIOIUIDIOISIOIOIIIOIOIIIOIDIDITIOIDIIOIOIOISIO TOTO TTT 
(3) s*TEST 35 TEST THAT L.P. SWITCH INTR ENABLED (CONSOLE 0) GETS PUSHED ON THE STACK 
(3) JDO IIIIIUISIIISIOIISISIIOIIOIUIOIUIUIIIOIOIOIOIOIOIOIOIUIOIIIOIUIIIIIDIUIDIOIOIOT TOI itt 
(2) 011502 000004 TST35: SCOPE 
(2) 011504 012737 000035 001206 MOV #35, S$TESTN SET TEST NUMBER IN APT MAIL BOX 
1308 011512 012737 000100 001124 MOV #100 SGDDAT “EXPECT IT TO BE SET INITIALLY 
1309 011520 012737 164014 032374 MOV #164014, BUFFER ;SET UP L.P. SW INTR EN AT INSTR LOC 
1310 011526 012737 163000 032376 MOV #163000, BUFFER+2. ;SET UP JSR REL INSTR 
1311 011534 012737 011552 001110 MOV #2$,$LPERR ;SET UP SCOPE LOOP ADRS 
1312 011542 012701 020040 1$: MOV #20040,R1 ;SET TOP OF STACK & MAINT SW2 INITIALLY IN R1 
1313 011546 012700 000037 MOV #37,RO ;SET UP STK LEVEL AFTER JSR IN RO 
1314 011552 010177 170520 2$: MOV R1,@STKPT ;SET STK PTR BEFOE JSR 
1315 011556 012777 032374 170460 MOV #BUFFER,aDPC : TART 
1316 011564 013737 002272 001122 MOV STKVAL, $BDADR ;SET UP REG ADRS 26 
1317 011572 005277 170446 INC aDPC ADVANCE TO JSR INSTR 
1318 011576 024446 R RS DELAY :STALL FOR STACKING 
1319 011602 000001 BITO 3€ T 10 1 
1320 011604 010077 170466 MOV RO,@STKPT :SEL STK WORD & BYTE 
1321 011610 017737 170456 001126 MOV @STKVAL , SBDDAT READ STK BYTE 
1322 011616 042737 177677 001126 BIC #177677 ,SBDDAT AVE ONLY L. a SW INTR ENABLED BIT 
1323 011624 023737 001124 001126 CMP SGDDAT , SBDDAT Is IT CORRECT? 
1324 011632 001403 BEQ 3$ IF OK 
1325 011634 010037 001164 MOV RO,STMPO “SET UP STK LEVEL FOR ER TYPE 
1326 011640 104031 ERROR 31 3L.P. SW INTR ENABLE FAILED TO STACK AT LEVEL INDICATED 
1327 011642 162701 000004 3$: SUB #4,R1 ADVANCE TO NEXT STK LEVEL 
1328 011 1 000004 SUB #4,R0 2ALL ye LOCATIONS TESTED? 
1329 011652 100337 BPL 2$ F NOT 
1330 011654 162737 000004 032374 SUB #4 ,BUFFER SET UP RESET STATE AT INSTR. LOC. 
1331 011662 162737 000100 001124 SUB #100, SGDDAT ;SET UP RESET STATE AT EXPECTED LOC 
133 011670 100324 BPL ‘BR IF RESET STATE NOT TESTED 
1334 LTA REE 
(3) s*TEST 36 TEST THAT L.P. SWITCH INTR ENABLED (CONSOLE 1) GETS PUSHED ON THE STACK 
(3) LARA REAR EERE ARERR ERE RRR e 
(2) 011672 000004 TST36: SCOPE 
) 011674 012737 000036 001206 MOV #36,STESTN 77SET TEST NUMBER IN APT MAIL — 
1335 011702 012737 000200 001124 MOV #200, $GDDAT sEXPECT IT TO BE SET INITIALL 
1336 011710 012737 164414 032374 MOV #164414 BUFFER ;SET UP L.P. Sw INSTR EN AT INSTR LOC 
1337 011716 012737 163000 032376 MOV #163000. BUFFER+2° ;SET UP JSR REL INSTR 
1338 011724 012737 011742 001110 MOV #23, SLPERR ;SET UP SCOPE LOOP ADRS 
1339 011732 012701 020040 18: MOV #20040,R1 ;SET TOP OF STACK & MAINT SW2 INITIALLY IN R1 
1340 011736 012700 000037 MOV #37 ,R0 ;SET UP STK LEVEL a tee JSR IN RO 
1341 011742 010177 170330 23: MOV R1 rig im SET STK PTR BEFORE JSR 
1342 011746 012777 032374 170270 MOV #BUF FER i START 
1343 011754 013737 002272 001122 MOV STKVAL, $SDADR SET UP REG ADRS 26 
1344 011762 005277 170256 INC aDPC ;ADVANCE TO JSR INSTR 
1345 011766 004537 024446 JSR RS DELAY STALL FOR STACKING 
1346 011772 1 BITO * COUNT TO 1 
1347 011774 010077 170276 MOV RO, @STKPT SEL STK WORD & BYTE 
1348 012000 017737 170266 001126 MOV aSTKVA , SBDDAT READ STK BYTE 
1349 012006 042737 177577 001126 BIC #177577, $BDDAT : SAVE ONLY L.P. Sw INTR ENABLED BIT 
1350 012014 023737 001124 001126 CMP SGDDAT, $BDDAT :1S IT CORRECT? 
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CZVSCC.P11 29-MAY-79 11:36 136 THAT L.P. SWITCH INTR ENABLED (CONSOLE 1) GETS PUSHED ON THE STACK SEQ 0046 
1351 012022 001405 BEQ 3$ ;BR IF OK 
1352 012024 010037 001164 MOV RO, $TMPO ;SET UP STK LEVEL FOR ER TYPE 
1353 012030 104031 ERROR 31 iL.P. SW INTR or ate +o TO STACK AT LEVEL INDICATED 
1354 012032 162701 000004 3$: SUB #4,R1 ZADVANCE TO NEXT STK LEVEL 
1355 012036 162700 000004 SUB #4 ,RO FALL STACK LOCATIONS TESTED? 
1356 012042 100337 : BPL 2$ IF_NOT 
13 12044 162737 000004 032374 SUB #4 BUFFER [SET UP RESET STATE AT INSTR LOC 
1358 012052 162737 000200 001124 SUB #200,$GDDAT ;SET UP RESET STATE AT EXPECTED LOC 
ut 12060 100324 BPL 1$ ‘BR IF RESET STATE NOT TESTED 
1361 DIOS IOI IIISISIIINIIIIIISIIOIOI III ISIIIUIIIDIUIIOIIO IOI R i foi iit 
(3) S*TEST 37 TEST THAT THE SHIFT OUT BIT GETS PUSHED ON THE STACK 
(3) SII RII III III II IOIIIIIIOIISIOIOIIOIOIIOIOIIOIOIOIIUII TTI IIT 
(2) 012062 000004 1S137: SCOPE 
(2) 012064 012737 000037 001206 MOV #37, STESIN 33SET TEST NUMBER IN APT MAIL BOX 
1362 012072 012737 040000 001124 MOV #40000, SGDDAT sEXPECT IT TO BE SET INITIALLY 
1363 012100 012737 100000 032374 MOV #100000,BUFFER ;SET UP CHAR INSTR 
1364 012106 012737 007000 032376 MOV #7000,BUFFER+2 :SET CHAR TO SHIFT OUT 
1365 012114 012737 163000 032400 MOV § #163000,BUFFER+4- ;SET UP JSR REL INSTR 
1366 012122 012737 012140 001110 MOV #2$,$LPERR ;SET UP SCOPE LOOP ADRS 
1367 012130 012701 020040 1$: MOV #20040, R1 ;SET TOP OF STACK & MAINT SW2 INITIALLY IN R1 
1368 012134 012700 000037 MOV #37 ,RO 7SET UP STK LEVEL AFTER JSR IN RO 
1369 012140 010177 170132 2$: MOV R1,aSTKPT ;SET STK PTR BEFORE JSR 
1370 012144 012777 032374 170072 MOV #BUF FER , aDPC ; START 
1371 012152 013737 002272 001122 MOV STKVAL , $BDADR ;SET UP REG ADRS 26 
1372 012160 005277 170060 INC aDPC : RESUME 
1373 012164 004537 024446 JSR R5,DELAY STALL FOR CHAR DISPLAY 
1374 012170 000010 BIT3 ;COUNT TO 10 
1375 012172 005277 170046 INC aDPC ; RESUME 
1376 012176 004537 024446 JSR R5 DELAY 7STALL FOR STKING 
1377 012202 1 BITO ;COUNT TO 1 
1378 012204 010077 17 "] RO, @STKPT SEL oe wD & BYTE 
1379 012210 017737 00 001126 MOV @STKVAL.$BDDAT READ 
1380 012216 042737 137777 001126 BIC #137777,$BDDAT ;SAVE SHIFT OUT BIT ONLY 
1381 012224 023737 001124 001126 CMP SGDDAT,$BDDAT :IS IT ~CORRELT2 . | 
1382 012232 001403 BEQ 3$ ;BR_IF SO 
1385 012234 010037 001164 MOV RO, STMPO ;SET UP STK LEVEL FOR ER TYPE 
1384 012240 104032 ERROR 32 ;SHIFT OUT FAILED TO STACK AT LEVEL INDICATED 
1385 012242 162701 000004 3$: SUB #4 ,R1 SADVANCE TO NEXT STK LEVEL 
1386 012246 162700 000004 SUB #4 RO 7ALL STACK LOCATIONS TESTED? 
1387 012252 100332 BPL 2$ ;BR IF MORE STK LOC TO TEST 
1388 012254 012737 000017 032376 MOV #17 ,BUFFER+2 PROVIDE CHAR THAT a T SET SHIFT OUT 
1389 012262 162737 040000 001124 SUB #40000, $GDDAT eth ZERO STATE NEXT 
if 012270 100317 BPL 1$ BR IF RESET STATE NOT TESTED 
1392 js SotenneNSRERaReseReseReNEsEseeSENesesenoNaENRENSseseeRNNeSeNeS 
(3) i*TEST 40 TEST THAT THE ‘POP* INSTR WILL INCREMENT THE STACK POINTER 
(3) SRA 
(2) 012272 000004 18140: SCOPE 
(2) 012274 012737 000040 001206 MOV #40 .STESIN 7zSET TEST NUMBER IN APT MAIL BOX 
1393 012302 012777 020000 167766 MOV #20000. Neal ;SET STACK POINTER TO ZERO 
13 012310 012737 000004 001124 MOV #4 ,$ sEXPECT STK PTR TO BE 71 INITIALLY 
1395 012316 012737 165000 032374 MOV #168000. BUFFER ;SET UP POP INSTR 
1396 012324 012777 032374 167712 1$: MOV BUFFER ,aDPC START 
1397 012332 013737 002276 001122 MOV STKPT , $BDADR SET UP REG ADRS 32 
1398 012340 017737 167732 001126 MOV @STKPT,$BDDAT ;READ STACK SELECTION 
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1399 012346 042737 177740 
1400 012354 023737 001124 
1401 012362 001401 
1402 012364 104033 
1403 012366 062737 000004 
1404 012374 022737 000040 
1405 012402 001350 
1406 
1407 

(3) 

(3) 

(2) 012404 

(1) 012406 012737 000040 
(2) 012414 012737 
1408 012422 012777 02 
1409 012430 005037 001124 
1410 012434 012700 000011 
1411 012440 012737 165000 
1412 012446 012777 032374 
1413 012454 013737 002256 
1414 012462 005300 
1415 012464 001410 
1416 012466 032777 010000 
1417 012474 1764 
1418 012476 012737 010000 
1419 012504 104034 
1420 012506 032777 010000 
1421 012514 1 
1422 012516 012737 010000 
1423 012524 005037 001126 
1424 012530 104034 
1425 012532 0 
1426 
1427 

(3) 

(3) 

(2) 012534 

(2) 012536 012737 
1428 012544 013737 002244 
1429 012552 012737 032376 
1430 012 012777 020040 
1431 012 012737 163000 
1432 012574 012737 166000 
1433 012602 012777 032374 
1434 012610 004537 024446 
1435 012614 1 
1436 012616 012777 032404 
1437 012624 537 024446 
1438 012630 1 
1439 012632 017737 167406 
440 012640 023737 001124 
1441 012646 001401 
1442 072650 104035 
1443 
1444 

(3) 


001126 BIC #177740,$BDDAT ;SAVE ONLY STK SEL BITS 
001126 CMP $GDDAT,$BDDAT :ARE THEY CORRECT 
BEQ 2$ “BR IF SO 
ERROR 33 ‘POP INSTR FAILED TO INCREMENT STACK PTR 
001124 2$: ADD #4, SGDDAT SADVANCE EXPECTED STACK POINTER VALUE 
001124 CMP wad, $GDDAT “HAVE DONE ALL STK LOCS? 
BNE ‘BR IF NOT 
STREAK EERRAEEAREERREREREAEREARERAERERAERRRR ER 
S*TEST 41 TEST THAT STACK UNDERFLOW WILL SET 
TARPS RSSRESRASARASZALEASLALLZASZERL ESSERE SESS EERE R ERR RRA R SRR RRR RRR RRR RSE SE SE 
1ST41: SCOPE 
001166 MOV #40,$TIMES £300, 40 ITERATIONS 
001206 MOV #41 .$TESTN T TEST NUMBER IN APT MAIL BOX 
167646 MOV #20000, aSTKPT :SET STACK TO ZERO 
CLR $GDD ;EXPECT NO UNDERFLOW FOR 8 POPS 
MOV #11 RO SET UP POP COUNT 
032374 MOV #168000. BUFFER “SET UP POP INSTR 
167570 18: MOV WBUFFER“aDPC =: START 
001122 MOV SREG1,$BDADR = SET _UP REG ADRS 12 
DEC RO :COUNT POP OPERATION 
BEQ 2$ ‘BR IF UNDERFLOW EXPECTED 
167562 BT #10000, aSREG! :SEE THAT UNDERFLOW NOT SET 
001126 MOV #10000, $BDDAT : INDICATE STACK UNDERF LOW 
ERROR 34 STACK UNDERFLOW SET PREMATURELY 
167542 28: BIT #10000.aSREG1 :SEE THAT UNDERFLOW IS SET 
BNE 3$ :BR IF SO 
001124 MOV #10000,$GDDAT EXPECTED STACK UNDERFLOW 
CLR $BDDAT ‘INDICATE IT WAS NOT THERE 
ERROR 34 *STACK UNDERFLOW FAILED TO SET 
3$: RESET “RESET STACK UNDERFLOW INT REQ BEFORE ADVANCING 
DPE REE EERE AERA REAR EE EE 
T*TEST 42 TEST THAT THE POP INSTR CAN RESTORE THE DPC 
MeASBABAABESAASZLALLZA£LASLALSASAES EE SESE SER ER SA SRS ARERR RRS ER RRS RSE SS 
$142: SCOPE 
001206 MOV #42,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
001122 MOV DPC. $BDADR :SET UP REG 00 ADRS . 
061124 MOV #BUFFER+2,$GDDAT sEXPECT BUFFER+2 ADRS AFTER POP —— 
167510 MOV #20040,aSTKPT ;SET TOP OF STACK 
032374 MOV #163000, BUFFER :=SET UP JSR REL INSTR 
032404 MOV #166000. BUFFER+10 7SET UP R 
167434 MOV WBUFFER;@DPC  ;START © —— 
JSR R5, DELAY SSTALL-FOR STACKING 
BITO COUNT TO 1 
167420 MOV #BUFFER+10,aDPC : START 
JSR __RS.DELAY SSTALL FOR UNSTACKING 
=COUNT TO 1 
001126. ———_ MOV aDPC , $BDDAT TREAD DPC 
001126 CMP $GDDAT , SBDDAT :D1D THE DPC GET RESTORED Ok 
BEQ TST43 ADVANCE TO NEXT TEST IF Ok 
ERROR 35 [POP INSTR FAILED TO RESTORE DPC FROM STACK 


I 
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DFU A RARE AREER RO REET ERATE TAREE EHERERRRARH eRe Ae 


ieTEST 43 TEST THAT THE NAME BITS WILL GET RESTORED 


SEQ 0047 
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(3) MARR EESRGASZALARASLSSALRSARRSSSSER EASA RAS ARERR RRR RRR SSSR SRR SRS SS 

(2) 012652 000004 +8143: SCOPE 

(1) 012654 012737 000004 001166 MOV #4 ,STIMES ##D0 4 ITERATIONS 

(2) 012662 012737 000043 001206 MOV #43, $TESTN SET TEST NUMBER IN APT MAIL BOX 
1445 012670 012737 012720 901110 MOV #1$,S$LPERR :SET UP SCOPE LOOP ADRS 
1446 012676 013737 002270 001122 MOV DNAME , SADADR [SET UP REG 24 ADRS 
1447 012704 012737 003777 001124 MOV #3777 ,$GDDAT thal NAME REG WITH MAXIMUM VALUE 
1448 012712 004437 024462 JSR R4 POPSET SET UP JSR, POP & NAME INSTRUCTIONS 
1449 012716 150000 ; 150000 NAME INSTR 
1450 012720 012737 150000 032374 1$: MOV #150000,BUFFER ;SET UP NAME INSTR 
1451 012726 053737 001124 032374 BIS $GDDAT,BUFFER ;SET NAME WORD 
1452 012734 004737 024512 JSR PC,DO :GO CYCLE THRU INSTRUCTIONS 
1453 012740 017737 167324 001126 MOV @DNAME ,SBDDAT READ NAME REG 
1454 012746 042737 174000 001126 BIC #174000, $8DDAT SAVE ONLY NAME BITS 
1455 012754 023737 001124 001126 CMP SGDDAT,$BDDAT ;DID THEY GET RESTORED? 
1456 012762 001401 BEQ 2s BR IF SO 
1457 012764 104036 ERROR 36 ; NAME Ce hat TO RESTORE 
1458 012766 005337 001124 2$: DEC $GDDAT ADVANCE _P. TTERN 
1459 012772 100405 BMI TST44 ADVANCE 70 NEXT TEST 4 ot VALUES TESTED 
1460 012774 001351 BNE 1$ BR IF NAME BITS NOT EQ TO ZER 
1461 012776 052737 003777 032400 BIS #3777 ,BUFFER+4 ;SET NAME REG TO ALL ONES WHEN RESTORING ZERO 
art 013004 000745 BR 1$ :GO RESTORE ALL ZEROS 
1464 J DRE EKER REE RRR EERE EEE ERE EERE RRR EEE 

(3) = TEST as TEST THAT THE VECTOR SCALE WILL GET RESTORED 

(3) ~MASAAASAAASAASLALSAALSSLSESASSAE AREA RELEASE RRR ARRAS AAR RRA A SSS ASRS DSS 

(2) 013006 000004 T8144: SCOPE 

(1) 013010 012737 000100 001166 MOV #100, $TIMES 3:D0_ 100 ITERATIONS 

(2) 013016 012737 000044 001206 MOV #44 ,$TESTN 3:SET TEST NUMBER IN APT MAIL BOX 
1465 013024 012737 013054 001110 MOV #1$,$LPERR :SET UP SCOPE LOOP ADRS 
1466 013032 013737 002256 001122 MOV SREG1 , $BDADR ;SET UP REG 12 ADRS 
1467 013040 012737 000017 001124 MOV #17, $GDDAT START VECTOR SCALE AT MAXIMUM VALUE 
1468 013046 004437 024462 JSR R4,POPSET ;SET UP _JSR,POP & LOAD STATUS C INSTRS 
1469 013052 154020 154020 [LOAD STATUS C_INSTR 
1470 013054 012737 154020 032374 1$: MOV #154020 BUFFER ;SET UP LOAD STATUS C INSTR 
1471 013062 053737 001124 032374 BIS pee « BUFFER ;SET VECTOR SCALE 
1472 013070 004737 024512 JSR :GO CYCLE THRU INSTRUCTIONS 
1473 013074 017737 167156 001126 MOV BSREGI SBDDAT READ VECTOR SCALE REG 
1474 013102 042737 177760 001126 BIC #177760,$BDDAT SAVE ONLY THE VECTOR SCALE BITS 
1475 013110 023737 001124 001126 CMP SGDDAT,$B8DDAT DID THEY GET RESTORED? 
1476 013116 001401 BEQ 2s BR IF SO 
1477 013120 104037 ERROR 37 : VECTOR 3 FAILED TO RESTORE 
1478 013122 005337 001124 23: DEC $GDDAT ZADVANCE_P TTERN 
1479 013126 100405 BM] TST45 ADVANCE 70 NEXT TEST IF ALL VALUES TESTED 
1480 013130 001351 BNE 1$ BR IF VECTOR SCALE NOT EQ TO ZERO 
1481 013132 052737 000017 032400 BIS #17 ,BUFFER+4 :SET VECTOR SCALE TO ALL ONES WHEN RESTORING ZEROS 
iene 013140 000745 BR 1$ 7GO RESTORE ALL ZEROS 
1484 DLA AAA EAE AREER EERE AERARAARAAARAEERERRE EERE EE 

(3) i*TEST 45 TEST THAT THE CHAR SCALE WILL GET RESTORED 

(3) JD RAE REE REE EERE EAR EERE ERE EERE 

(2) 013142 TST45: SCOPE 

(2) 013144 012737 5 001206 MOV #45, $TESTN 3;SET TEST NUMBER IN APT MAIL BOX 
1485 013152 012737 013206 001110 MOV #1$.SLPERR SET UP SCOPE LOOP ADRS 
1486 013160 013737 002256 001122 MOV SREG1, $BDADR SET UP REG 12 ADRS 
1487 013166 012737 001400 001124 MOV #1400, $GDDAT EXPECT CHAR SCALE AT MAXIMUM VALUE 
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145 TEST THAT THE CHAR SCALE WILL GET RESTORED 
MOV #140,RO :START CHAR SCALE AT MAXIMUM VALUE 
JSR R4,POPSET ‘SET UP JSR,POP & LOAD STATUS C INSTR 
154200 ‘LOAD STATUS C INSTR 
1$: MOV #154200 BUFFER ‘SET UP LOAD STATUS C INSTR 
BIS RO.BUFFER *SET CHAR SCALE 
JSR DO *GO CYCLE THRU INSTRUCTIONS 
MOV aSREGI SBDDAT  :READ CHAR SCALE REG 
BIC #176377, $BDDAT :SAVE ONLY THE CHAR SCALE BITS 
CMP $GDDAT,$BDDAT :DID THE CHAR SCALE GET RESTORED Ok? 
BEQ 2$ ‘BR IF SO 
ERROR 40 S CHARACTER SCALE FAILED TO RESTORE 
2$: SUB #400, $GDDAT SADVANCE CHAR SCALE VALUE 
SUB #40,R0 ‘SET UP RO WITH NEXT VALUE 
BMI TST46 ‘ADVANCE TO NEXT TEST IF ALL VALUES TESTED 
BNE 1$ *GO TRY NEXT VALUE IF CHAR SCALE NOT EQ ZERO 
BIS #140,BUFFER+4 =SET CHAR SCALE TO ALL ONES WHEN RETORING ZEROS 
BR 1$ :GO RESTORE ALL ZEROS 
DDR RRR RRR ERR EK EERE ERE RRR REE EERE REE EEK 
T*TEST 46 TEST THAT THE CHAR ROTATE BIT GETS RESTORED 
SRR EEE EERE EERE EERE EERE REE ERRREAR REE EH 
T5746: SCOPE 
MOV #46, $TESTN rSET TEST NUMBER IN APT MAIL BOX 
MOV #1$.$LPERR :SET UP SCOPE LOOP ADRS 
MOV SREG1,$BDADR  :SET UP REG 12 ADRS 
MOV #2000.$GDDAT §_: EXPECT CHAR ROTATE TO BE SET INITIALLY 
JSR R4,POPSET ‘SET UP JSR,POP & LOAD STATUS C INSTR 
155000 ‘LOAD STATUS C INSTR 
MOV #155400,BUFFER :SET UP LOAD STATUS C INSTR 
1$: JSR PC,DO :G0 CYCLE THRU INSTRUCTIONS 
MOV @SREG1,$BDDAT :READ CHAR ROTATE REG 
BIC #175777, $BDDAT :SAVE ONLY CHAR ROTATE BIT 
CMP SGDDAT,$B8DDAT :IS IT CORRECT? 
BEQ 2$ :BR IF SO 
ERROR 41 ; CHARACTER. ROTATE FAILED TO RESTORE 
2$: SUB #2000, $GDDAT :CLR CHAR ROTATE 
BMI TST47 +: ADVANCE TO NEXT TEST IF BOTH STATES TESTED 
BIC #400,BUFFER :SET UP FOR RESET STATE 
BIS #400.BUFFER+4 :SET CHAR ROTATE BIT 
BR 1$ [GO TRY RESET STATE 
LL E REE RERE REE EREEEEREEEKEEEREREAEREEEEREEAEREER ERED 
SeTEST 47 TEST THAT THE COLOR LEVEL WILL GET RESTORED 
JL EAA E REE REE ARAREREEER ERA EE 
TS147: SCOPE 
MOV #47, $TESTN z:SET TEST NUMBER IN APT MAIL BOX 
MOV #1$.$LPERR :SET UP SCOPE LOOP ADRS 
MOV CONS, $8DADR ‘SET UP REG 52 ADRS 
MOV #14 ScDDAT TEXPECT MAX VALUE INITIALLY 
MOV #600,R [SET UP COLOR LEVEL FOR INSTR USE 
JSR R4, POPSET [SET UP JSR,POP & LOAD STATUS B INSTR 
175000 ‘LOAD STATUS B INSTR 
1$: MOV #175000, BUFFER :SET UP LOAD STATUS B INSTR 
BIS RO, BUFFER :SET UP COLOR LEVEL 
JSR PC; BO :GO CYCLE THRU INSTRUCTIONS 


MCV @CONS , SBDDAT :READ COLOR LEVEL REG 


SEQ 0049 
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147 TEST THAT THE COLOR LEVEL WILL GET RESTORED 


BIC #177763,$BDDAT ;SAVE COLOR be yee ONL Y 
CMP $GDDAT,$BDDAT ;1S IT CORRECT? 
2$ :;BR IF S 


BEQ 0 
ERROR 42 :COLOR LEVEL FAILED TO RESTORE 

2$: SUB PyA SGDDAT SADVANCE TO NEXT VALUE 
SUB #200 ‘SET UP R4 WITH NEXT VALUE 
BM] T1560 ‘ADVANCE TO NEXT TEST IF ALL COLOR LEVELS TESTED 
BNE 1$ :GO TEST NEXT COLOR LEVEL iF NOT ZERO 
BIS #600,BUFFER+4  :SET COLOR LEVEL TO ALL ONES WHEN RESTORING ZEROS 
BR 1$ *GO RESTORE ALL ZEROS 

FREER EERE ERE REE KERR EERE EERE KEE ERE REE 

S*TEST 50 TEST THAT THE ITALICS BIT GETS RETORED 


SAREE REE REAR ERE KEE ERE REE ERE ERE RRR EEK 


TST5O: SCOPE 


MOV #50. $TESTN 73SET TEST NUMBER IN APT MAIL BOX 
MOV #1$,$LPERR SET UP SCOPE LOOP ADRS 
MOV SREGO, $BDADR ;SET UP REG 02 ADRS 
MOV #20, $GDDAT EXPECT ITALICS INITIALLY 
JSR R4,POPSET ;SET UP_JSR,POP & LOAD STATUS A 
170040 ;LOAD STATUS A_INSTR 
1$: MOV #170040,BUFFER ;SET UP LOAD STATUS A INSTR 
BIS SGDDAT,BUFFER ;SET UP ITALICS 
JSR PC,DO :GO CYCLE THRU INSTRUCTIONS 


MOV @SREGO,SBDDAT READ ITALICS REG 
BIC #177757, $BDDAT :SAVE ONLY ITALICS 
CMP SCDDAT, ,SBDDAT 31S IT CORRECT? 


BEQ 2 :BR I 
ERROR 43 SITALICS FAILED TO RESTORE 
2$: SUB #20, $GDDAT :G0 TO RESET STATE 
BMI TST51 + ; ADVANCE t9 NEXT TEST IF BOTH STATES TESTED 
BIS #20,BUFFER+4 § :SET ITALICS BIT TO ONE WHEN RESTORING ZERO 
BR 1$ :GO RESTORE RESET STATE 
SLA ERERRE EEE ERE EKER EE 
T*TEST 51 TEST THAT THE MENU BIT GETS RESTORED 
LARA REE RRR KE EEE EERE ERE EREERERER EERE EEE EEE 
TST51: SCOPE 
MOV #51, $TESTN z:SET TEST NUMBER IN APT MAIL BOX 
MOV #1$,$LPERR *SET UP SCOPE LOOP ADRS 
MOV SREG1,$BDADR  :SET UP REG 12 ADRS 
MOV #100, $GDDAT SEXPECT MENU INITIA 
R4 POPSET [SET UP JSR,POP & LOAD STATUS A INSTR 
170002 sLOAD STATUS A A INSTR 
#170003, BUFFER SET UP LOAD STATUS A INSTR 
1$ JSR C.D [GO CYCLE THRU INSTRUCTIONS 
MOV asarel SBDDAT :READ MENU REG 
B! #177677, $BDDAT :SAVE ONLY THE MENU BIT 
CMP SGDDAT,$BDDAT 1S IT CORRECT? 
BEQ 2$ ‘BR IF SO 
ERROR 44 [MENU FAILED TO RESTORE 
2$: SUB #100, $GDDAT SRESET MENU BIT 
BMI TST52 +:ADVANCE TO NEXT TEST IF BOTH STATES TESTED 
BIC #1,BUFFER :RESET MENU FOR INSTR US 
BIS #1 .BUFFER+4 :SET MENU WHEN RESTORING ZERO 
BR 1$ *GO RESTORE ZERO 


SEQ 0050 
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CZVSCC.P11 29=MAY-79 11:36 T51 TEST THAT THE MENU BIT GETS RESTORED SEQ 0051 
1 
\ene FDA IIOIIIISIIIIOISISISIOIOIOISIOIIIOIOIOI IOI III TOT TT TE TET TTT TT ET TE TT IE 
(3) s*TEST 52 TEST THAT THE INTENSITY ENA GETS RESTORED ON CONSOLE 0 
(3) ISI IOIOIUI III ISICIOIOIO IOI III III IOI IIIS IIE 
(2) 014040 000004 18152: SCOPE 
(2) 014042 012737 000052 001206 MOV #52, $TESTN 7;SET TEST NUMBER * APT MAIL BOX 
1586 014050 012737 014106 001110 MOV cond ‘gs ;SET UP SCOPE LOOP ADRS 
1587 014056 013737 002266 001122 MOV ‘SET UP REG 22 ADRS 
1588 014064 012737 100000 001124 MOV #100000, SeDDAr S EXPECT INTENSITY ENABLED TO BE SET INITIALLY 
1589 014072 004437 024462 JSR R4,POPSE SET UP JSR, POP & NOP INSTRS 
1590 014076 164200 164200 ;NOP > aa 
1591 014100 012737 164300 032374 MOV #164300,BUFFER ;SET UP NOP INSTR 
1592 014106 004737 024512 i$: JSR PC,DO GO CYCLE THRU INSTRS 
1593 014112 017737 166150 001126 MOV @CONS SBDDAT *READ REG 22 
1994 014120 042737 077777 001126 BIC #77777, SBDDAT 3; SAVE ONLY a" ENA BIT 
1595 014126 023737 001124 001126 CMP SGDDAT , S$BDDAT 31S IT CORRECT? 
1596 014134 001401 BEQ 2$ ‘BR IF SO 
1597 014136 104045 ERROR 45 ; INTENSITY ENA FAILED TO RESTORE 
1598 014140 162737 100000 001124 2$: SUB #100000,$GDDAT ;CLR INTENSITY ENA BIT AT EXPECTED L 
1599 014146 100407 BM! TST53 ;zADVANCE TO NEXT STATE IF BOTH STATES TESTED 
1600 014150 042737 000100 032374 BIC #100,BUFFER ;SET UP FOR RESET STATE 
1601 014156 052737 000100 032400 BIS #100, ,BUFFER+4 ;SET INTENSITY ENA AT INSTR LOC 
1on8 014164 000750 BR 1$ 7GO TRY RESET STATE 
1604 DRO IIIIIIIIIIIIIIISIIIOIIIOIII II IIOIOIUIOIOIOIOIIIII IO I I TT TOT OT EE 
(3) S*TEST 53 TEST THAT THE INTENSITY ENA GETS RESTORED ON CONSOLE 1 
(3) DAIS IIIS IOI ISISISIOIOIOOIII III II II IIIT OTTO OT TE I I ITE 
(2) 014166 000004 TST53: SCOPE 
(2) 014170 012737 000053 001206 MOV #53, $TESTN 2 gSET TEST NUMBER IN APT MAIL BOX 
1605 014176 012737 014234 001110 MOV #1$,$LPERR SET UP SCOPE LOOP ADRS 
1606 014204 013737 002266 001122 MOV CONS , SBDADR SET UP REG 22 ADRS 
1607 014212 012737 001000 001124 MOV #1000, SGDDAT S EXPECT INTENSITY ENABLED TO BE SET INITIALLY 
1608 014220 004437 024462 JSR R4, POPS ET ;SET UP JSR, POP & NOP INSTRS 
1609 014224 164600 164600 ;NOP INSTR 
1610 014226 012737 164700 032374 MOV #164700,BUFFER ;SET UP NOP INSTR 
1611 014234 004737 024512 1$: JSR PC,DO ;GO CYCLE THRU INSTRS 
1612 014240 017737 166022 001126 MOV @CONS , SBDDAT TREAD REG 2 
1613 014246 042737 176777 001126 BIC #176777, $BDDAT ;SAVE ONLY INTENSITY ENA BIT 
1614 014254 023737 001124 001126 CMP $GDDAT , SBDDAT :IS IT CORRECT? 
1615 014262 001401 BEQ 2s 7BR IS SO 
1616 014264 104045 ERROR 45 ; INTENSITY ENA FAILED TO RESTORE 
1617 014266 162737 001000 001124 2%: SUB #1000, $GDDAT sCLR INTENSITY ENA BIT AT EXPECTED LOC 
1618 014274 100407 BMI TST54 i ZADV VANCE TO NEXT TEST IF BOTH STATES TESTED 
1619 014276 042737 000100 032374 BIC #100 ,BUFFER ;SET UP FOR RESET STATE 
1620 014304 052737 000100 032400 BIS #100 ,BUF FER+4 SET INTENSITY ENA AT INSTR LOC 
166) 014312 000750 BR 1$ 3GO TRY RESET STATE 
1623 LL EERE ER ERE R EERE EERE EERE ERR RR ee 
(3) i*TEST 54 TEST THAT L.P. INTR ENA GETS RESTORED ON CONSOLE 0 
(3) LL R ERR RR eet 
(2) 014314 000004 TST54: SCOPE 
(2) 014316 012737 000054 001206 MOV #54,$TESTN 2 gseT TEST gr IN APT MAIL BOX 
1624 014324 012737 014362 001110 MOV #1$.$LPERR ;SET UP SCOPE LOOP ADRS 
1625 014332 013737 002266 001122 MOV CONS , SBDADR SET UP REG 52° ADRS 
1626 014340 012737 004000 001124 MOV #4000, $GDDAT T EXPECT L.P. poco ENA TO BE SET INITIALLY 
1627 014346 012737 164060 032374 MOV #164060, BUFFER ;SET UP NOP INS 


CZVSC=C__VS60 INSTRUCTION TEST PART II] 
CZVSCC.P11 29-MAY=79 11:36 


014354 
014360 


014440 


014442 


014676 


024462 
024512 


000055 
014510 
002266 


000040 
164460 
024462 


024512 


00002 
000020 


164014 
024462 
024512 


001206 
001110 
AES, 
001124 


032374 


032374 
032400 
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THAT L.P. INTR ENA GETS RESTORED ON CONSOLE 0 


R4,POPSET : SET a JSR, POP & NOP INSTRS 
PC, dO *GO CYCLE THRU INSTRS 

acon D REG 22 

hited SBDDAT 
$GDDAT,$B8DDAT : 
2$ 3 so 

46 [L.P. INTR ENA FAILED TO RESTORE 
#4000,$GDDAT  :SET UP FOR RESET STATE 

TST55 ; ZADVANCE TO NEXT TEST IF BOTH STATES TESTED 
#20 BUFFER ‘SET UP FOR RESET STATE 

#20,BUFFER+4 § :SET IT BEFORE POP 

1$ 'GO TRY RESET STATE 


DLR ERK REE ER ERK REE EEE KEKE REE EERE EKER KEE EERE 


S*TEST 55 TEST THAT L.P. INTR ENA GETS RESTORED ON CONSOLE 1 


DLA EREEEEKEKEE EKER ERE EEE 


TST55: 
#55, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
#1$.$LPERR :SET UP SCOPE LOOP ADRS 
CONS , SBDADR :SET UP REG 22 ADRS 
#40, $GDDAT ZEXPECT L.P. INTR ENABLED TO BE SET INITIALLY 
#164460,BUFFER :SET UP NOP INSTR 
R4,POPSET :SET Up JS JSR, POP & NOP INSTRS 
PC,DO GO clare” THRU INSTRS 
@CONS,SBDDAT =: READ REG 
#177737,$BDDAT :SAVE ONLY L.P. INTR ENA 
$GDDAT.$B8DDAT :IS IT CORRECT? 
2$ :BR IF SO 


46 :L.P. INTR ENA cries TO RESTORE 

#40, SGDDAT SET UP FOR RESET STAT 

TST56 ADVANCE TO NEXT Test IF BOTH STATES TESTED 
#20 BUFFER SET UP FOR RESET STATE 

#20 ,BUFFER+4 SET IF BEFORE POP 

1$ :GO TRY RESET STATE 


J LR EKER EERE EERE KE 


i*TEST 56 TEST THAT L.P. SW INTR ENA GETS RESTORED ON CONSOLE 0 


JARRE ERE REE EE ERKKEREEKREEKER ERE EKER EH 


TST56: 
#56, $TESTN gael TEST NUMBER IN APT MAIL BOX 
#1$,$LPERR SC ADRS 


CONS , SBDADR EG 22 ADRS 

#2000, $GDDAT SEXP ECT L.P. Sw — ENA TO BE SET INITIALLY 
#164014,BUFFER ;SET UP NOP INSTR 

R4,POPSET :SET r gan. POP & NOP INSTRS 


NOP 
PC, bg *GO CYCLE THRU INSTRUCTIONS 
@CONS,SBDDAT  :READ REG 22 

atari $BDDAT :SAVE ONLY L.P. SW INTR ENA 
SCDDAT. ,SBDDAT ae IT CORRECT? 


47 "ow INTR ENA coatee TO RESTORE 
#2000, $GDDAT SET “UP FOR RESET STA 
TST57 ; ADVANCE TO NEXT TEST IF BOTH STATES TESTED 


SEQ 0052 
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S&S 


WODONAWUSWH-O 


ek ek es a od od SH td ot oo 
AA NNN NNN NSN OS 
We 2 ea SS SS 


~~ 


3 


AA 
Mr 
~~ w 


014714 


014716 


042737 
052737 
000750 


000004 
012737 


000004 
000004 


000057 
014764 
002266 
000020 
164414 
024462 


024512 


000060 
015104 
002246 
000003 


024462 


000061 
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032374 
032400 


001124 


032374 
032400 


001124 


032374 
032374 
001126 


001126 
001126 


032400 


001206 
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T56 TEST THAT L.P. SW INTR ENA GETS RESTORED ON CONSOLE 0 SEQ 0053 


BIC #4 ,BUFFER SET UP FOR RESET STATE 
BIS #4 ,BUFFER+4 :SET_IT BEFORE POP 
BR 1$ :GO TRY RESET STATE 


SEAR REREEEEREEREEREEEEEEREREREEREEREREREREEEREER ERE EERE 


T*TEST 57 iEST THAT L.P. SW INTR ENA GETS RESTORED ON CONSOLE 1 
SERA RARER REE EERERREEEEEEEEEEEEER EERE ER EH 
TST57: SCOPE 
MOV #57, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
MOV #1$,SLPERR :SET UP SCOPE LOOP ADRS 
MOV CONS , SBDADR :SET UP REG 22 ADRS 
MOV #20, $GDDAT SEXPECT L.P. SW INTR ENA TO BE SET INITIALLY 
MOV #164414,BUFFER :SET UP NOP INSTR 
JSR R4, POPSET ;SET UP ISR, POP & NOP INSTRS 
164410 INSTR 
1$: JSR PC,DO “G0 CYCLE THRU INSTRS 
MOV @CONS,$BDDAT  §:READ REG 22 
BIC #177757,$BDDAT :SAVE ONLY L. P. SW INTR ENA 
CMP $GDDAT,$BDDAT IS IT CORRECT? 
BEQ 2$ ‘BR IF NOT 
ERROR 47 ‘L.P. SW INTR ENA FAILED TO RESTORE 
2$: SUB #20, $GDDAT >SET UP FOR RESET STATE 
BMI TST60 ‘ADVANCE TO NEXT TEST IF BOTH STATES TESTED 
BIC #4 ,BUFFER ;SET UP RESET STATE 
BIS #4 .BUFFER+4 “SET IT BEFORE POPS 
BR 1$ 'GO TRY RESET STATE 
DRE REAR EKER EERE RE EKER EEE KERR EERE EKER EEK EERE 
T*TEST 60 TEST THAT THE LINE TYPE WILL GET RESTORED 
CRRA EEE ERE EKER EERE KEE EEER EERE 
TST60: SCOPE 
MOV #60, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
MOV #1$,$LPERR :SET UP SCOPE LOOP ADRS 
MOV SREGO,$8DADR = :SET UP REG 02 ADRS 
MOV #3, $GDDAT [EXPECT MAX VALUE INITIALLY 
R R4 POPSET ‘SET UP JSR, POP & CHAR INSTRS 
100004 :CHAR INSTR 
1$: MOV #100004,BUFFER :SET UP CHAR INSTR 
BIS SGDDAT BUFFER :SET UP LINE TYPE 
JSR PC,DO 'GO CYCLE THRU INSTRS 
MOV @SREGO,$BDDAT :READ LINE TYPE 
BIC #77774,$BDDAT :SAVE ONLY LINE TYPE 
CMP SGDDAT.$BDDAT :IS IT CORRECT? 
BEQ 2$ [BR IF SO 
ERROR 50 ‘LINE TYPE FAILED TO RESTORE 
2s: DEC $GDDAT ‘ADVANCE TO NEXT VALUE 
BMI TST61 + ADVANCE TO NEXT TEST ir Abe VALUES TESTED 
BNE 1$ ‘TRY NEXT LINE TYPE IF NOT ZERO 
BIS #3,BUFFER+4 SSET LINE TYPE TO 3 WHEN RESTORING ZEROS 
BR 1$ 'GO RESTORE ALL ZEROS 
LARA EERE RRR REE E REE ERKEEREEEE RE AEEE REE EERE EERE E 
TSTEST 61 TEST THAT THE INTENSITY LEVEL WILL GET RESTORED 


AI IIIICIIIUIUIO IOUS IOIUIIDIIOIIOIUISIIDISIGOIIOIOIDIGISIIOICSISIOIIOISIOI DIGI Toto 
1$161: SCOFE 
MOV #61,$TESTN 72SET TEST NUMBER IN APT MAIL BOX 


C 
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CZVSCC.P11 29-MAY-79 11:36 T61 TEST THAT THE INTENSITY LEVEL WILL GET RESTORED SEQ 0054 


012737 015236 #1$,S$LPERR SET UP SCOPE LOOP ADRS 
002246 ;SET UP REG 02 ADRS 
003400 sEXPECT MAX VALUE INITIALLY 
001600 #1600 ,RO :SET UP INTENSITY LEVEL FOR INSTR USE 
024462 JSR R4,POPSET ;SET UP JSR, POP & CHAR INSTRS 


=C 

#102000 BUFFER :SET UP CHAR INSTR 

RO, BUF F ‘SET UP INTENSITY LEVEL 

PC,DO :GO CYCLE THRU INSTR 
001126 @SREGO,$BDDAT :READ INTENSITY LEVEL 
001126 #174377,$BDDAT :SAVE ONLY INTENSITY LEVEL 
001126 MP SCDDAT. , SBDDAT :1S IT CORRECT? 


$0 

51 ‘INTENSITY LEVEL FAILED TO RESTORE 

#200,RO ‘SET UP RO WITH NEXT VALUE 
001124 #400, $GDDAT ;ADVANCE TC NEXT VALUE 
TST62 ADVANCE TO NEXT. TEST IF ALL VALUE S TESTED 
BN 1$ “BR IF NEXT INTENSITY LEVEL NOT ZERO 
001600 032400 #1600,BUFFER+4 SET INTENSITY LEVEL TO ALL ONES WHEN RESTORING ZEROS 

015326 000743 1$ 'GO RESTORE ALL ZEROS 


SLR RRR EEEER EERE REKEEEEEEEEKEEREKEEH 
= *TEST 62 TEST THAT BLINK WILL GET RESTORED 
SD IRE RRR ERE REE REE EERE REE REE EEE EERE EREEREERER REE EE 
015330 000004 TST62: 

000062 001206 MO #62,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 

015376 ‘SET UP SCOPE LOOP ADRS 

002246 :SET UP REG 02 ADRS 

000010 #10,$GDDAT TEXPECT BLINK INITIALLY 

100030 032374 #100030. BUFFER SSET UP CHAR INSTR 

024462 JSR R4,POPSE ‘SET UP JSR, POP & CHAR INSTRS 

:CHAR INSTR 
024512 : J PC,D 7GO CYCLE THRU INSTRS 
001126 MO BSRECO SBDDAT  :READ REG 
177767 001126 #177767,$BDDAT :SAVE ONLY THE BLINK BIT 
001124 001126 MP SGDDAT, , SBDDAT ils IT CORRECT? 


BR IF SO 
52 “BLINK FAILED A RESTORE 
000010 032374 : #10,BUFFER SET UP RESET STATE 
000010 001124 #10, $GDDAT :60 TO RESET STATE 
TST63 ;zADVANCE TO NEXT TEST IF BOTH STATES TESTED 
000010 #10,BUFFER+4 7SET BLINK WHEN RESTORING ZERO 
1$ :GO TRY RESET STATE 


SAREE REE ERE EERE EERE ERRERERRREEEEEREEREEEREE EKER RR 
T*TEST 63 TEST THAT THE MODE WILL GET RESTORED 
SLR EKER EERE ARERR EEK ARERR KEE EREEEERE 
TST63: 
000100 #100, $TIMES £300, 100. ITERATIONS 
000063 #63,$TESTN T NUMBER IN APT MAIL BOX 
015524 #1$.$LPERR : ADRS 
002246 SREGO, SBDADR 
044000 #44000,$GDDAT  :EXPECT ABS VEC MODE INITIALLY 
024462 JSR R4 POPSET ‘SET UP JSR. POP & MODE INSTR 


100000 CHAR IN 
052737 100000 : BIS #100000 ,BUFFER+4 ;RESTORE "INSTR' BIT AT LOC BUFFER+4 
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012737 
053737 
004737 


100000 
001124 
024512 
100000 
164460 


164454 
103777 
001124 


004000 


000064 
015672 
002272 
000001 
171400 
024462 


024512 
032376 
024446 


000065 
016040 
002272 
002000 
176014 
024462 


024512 
032376 
024446 
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032374 
032374 
032400 


001126 
001126 
001126 


001124 


001206 
0 
032374 


164340 
164356 


001126 


032374 
032400 
001206 
001124 
032374 


164172 
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T THAT THE MODE WILL GET RESTORED 


#100000, BUFFER ;SET UP CHAR INSTR 
a BUFFER :SET UP CURRENT natae INSTR 


PC.D 760 CY CLE THRU INSTR 
#160000, SUFFERS 


E LOC BUFFER+4 NOW AS DISPLAY DATA 
K UP DATA FOR DISPLAY INSTR ISSUED 
+ REF ORE JSR = THIS WILL LD MODE BITS 
@SREGO, $BDDAT “READ REG 02 


#103777,$BDDAT :SAVE ONLY MODE BITS 
SGDDAT. ,$SBDDAT IS IT CORR ECT? 


:BR I 
53 s;MODE FAILED TO RESTORE 

#4000, $GDDAT ;GO TO NEXT DISPLAY MODE 
1$ ;BR IF MORE MODES TO TEST 


SL RARER RRR RARER AREER ERE KEE REE RERREEREKEERE REE REEREREE RRR ER 


TRTEST 64 


FREER E RRR EE ERE 


TST64: 


2$: 


SCOPE 


TEST THAT STOP INTR ENABLED GETS RESTORED-CK JT ON STK 


#64, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
#1$,$LPERR :SET UP SCOPE LOOP ADRS 
STKVAL , SBDADR [SET UP REG 26 ADRS 
‘EXPECT IT TO BE SET INITIALLY 
m7A800. QUFFER ‘SET UP LOAD STATUS A INSTR 
R4,POPSE ‘SET UP JSR, POP & LOAD STATUS A INSTR 
‘LOAD STATUS A INSTR 


PC,DO :GO ye THRU INSTRS 
WBUFFER+2,aDPC ;DO A JSR 
R5,DELAY STALL FOR STACKING 


:COUNT TO 1 
#20037,aSTKPT SET UP STK SEL 
@STKVAL ,$8DDAT READ STOP INTR ENA BYTE FROM STACK 
#177776,$BDDAT ;SAVE ONLY STOP INTR ENABLED BIT 
—. , SBDDAT ZWAS IT RESTORED ON THE POP INSTR? 


54 tit INTR ENABLE ante TO RESTORE 

$GDDAT ;SET UP FOR RESET STATE 

TST65 ADVANCE TO NEXT TEST IF ble STATES TESTED 
#400 ,BUFFER :SET UP FOR STKING RESET STATE 


#400,BUFFER+4  ;SET BIT BEFORE POP INSTR 
1$ 7GO TRY RESET STATE 


SRI EERE EERE ERE ERE EEREEEEEEEEREERKREREEEERE EH 


:*TEST 65 


MASA ARASAASSASALSLASASLAALSLSEAEASALAL ARERR RRR ERR ALAR ASRS LASS SD | 


18165: 


1$: 


SCOPE 


TEST THAT DEPTH QUEING BIT GETS RESTORED-CK IT ON STK 


#65, $TESTN ;:SET TEST NUMBER IN APT MAIL BOX 
#1$,$LPERR SET UP SCOPE LOOP ADRS 
STKVAL,$8DADR :SET UP REG 26 ADRS 
#2000,$GDDAT §: EXPECT IT TO BE SET INITIALLY 
+i7601k. BUFFER :SET UP LOAD STATUS B' INSTR 
R4 POPSET [SET UP JSR, POP & LOAD STATUS B' INSTRS 
‘LOAD STATUS B' INSTR 
PC DO *GO CYCLE THRU INSTRS 
WBUFFERY2, apPc :DO A JSR 
R5,DELA *STALL FOR STACKING 
;COUNT TO 1 


SEQ 0055 
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012777 


000001 
777 
737 


oo 
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NM 


11:36 
020037 


001124 


002000 


000004 
000004 


000066 
016210 
002272 


000400 
176300 
024462 
024512 


032374 
024446 


000067 
016360 
002272 
004000 
176060 
024462 
Geel 
02'4446 


u20037 
163660 
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032374 
032400 


001206 


032374 


164022 


164040 


001126 


001124 


032374 
032400 


001206 


032374 


163652 


163870 
001126 
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12-26 
TEST THAT DEPTH QUEING BIT GETS RESTORED-CK IT ON STK 


#20037,@STKPT ;SET UP STK SEL 

@STKVAL,$BDDAT ;READ DEPTH QUEING BYTE FROM STK 
#175777 , $BDDAT a ONLY DEPTH QUEING BIT 

pw ina a Pact ON THE POP INSTR? 


IF 
55 “DEPTH QUE FAILED tte RESTORE 

#2000, $GDDAT SET UP FOR RESET STATE 

TST66 ; ADVANCE TO NEXT TEST IF state STATES TESTED 


#4 ,BUFFER SET UP_FOR STKING 9 1%, 
#4 ,BUFFER+4 ;SET BIT BEFORE POP INSTR 
1$ :GO TRY RESET STATE 


WARS SSSS AREAS SESSA ESSLS ERAS ASA L ARES AS AAAS SASS AA RSA ARA SERS S SS OS 


TeTEST 66 


MER SASSASSRSSASSLSSASEASALASESASLE SEES RASA R SEAR RRA R RRA REAR RASS SSS 


TST66: 


1$: 


2$: 


SCOPE 


TEST THAT DEPTH QUE CONTROL BIT GETS RESTROED-CK IT ON STK 


#66, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
#1$.$LPERR *SET UP SCOPE LOOP ADRS 

STKVAL,$BDADR :SET UP REG 26 ADRS 

400, $GDDAT ‘EXPECT IT TO BE SET INITIALLY 
#176300,BUFFER :SET UP LOAD STATUS B’ INST 

4,POPSET ‘SET UP JSR, POP & LOAD STATUS B’ INSTRS 
‘LOAD STATUS B' INSTR 

PC,DO GO CYCLE THRU INSTRS 
WBUFFER,@DPC  :DO A JSR REL 
R5 DELAY : STALL FOR STACKING 


; COUN 
#20037,a@STKPT ;SET UP STACK SEL 
@STKVAL,$BDDAT ;READ STACK 
#177377, $BDDAT ;SAVE ONLY DEPTH QUE CONTROL BIT 
clase ed WAS IT RESTORED ON THE POP INSTR? 


:BR so 
55 DEPTH QUE CONTROL ot TO RESTORE 
#400, SGDDAT :SET UP FOR RESET SATATE 
TST67 :;ADVANCE TO NEXT TEST IF wih STATES TESTED 
#100,BUFFER SET UP_FOR STACKING at STATE 


#100,BUFFER+4  ;SET BIT BEFORE POP INSTR 
1$ :GO TRY RESET STATE 


LTR EREEE EEE REE EE ERE RERE EERE EERRAEEEREREREEEREERE 


i*TEST 67 


SERRE REE EREREE EERE EEE EEE ERE ERERE ERE EERE EH 


TS167: 


SCOPE 


TEST THAT EDGE INTR ENABLED GETS RESTORED-CK IT ON STK 


#67, $TESTN :gSeT TEST NUMBER IN APT MAIL BOX 

#1$.S$LPERR SET UP SCOPE LOOP ADRS 

STKVAL,$BDADR SET UP REG 26 ADRS 

#4000,$GDDAT EXPECT IT TO BE SET INITIALLY 

#176060, BUFFER :SET UP LOAD STATUS B° INSTR 

R4,POPSE [SET UP JSR, POP & LOAD STATUS B' INSTR 
* LOAD STATUS a. INSTR 

PC,DO *GO CYCLE THRU INSTRS 

#BUFFER+2,aDPC :DO A JSR 

RS, DELAY :STALL FOR, STACKING 


#20037,aSTKPT SET UP STK SEL 
@STKVAL,$BDDAT READ EDGE INTR ENA BYTE FROM STK 


SEQ 0056 


5 
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C2VSCC.P11.  - 29=MAY-79 11:36 167 TEST THAT EDGE INTR ENABLED GETS RESTORED-CK IT ON STK SEQ 0057 
1863 016414 042737 173777 001126 BIC #173777,$BDDAT ;SAVE ONLY EDGD INTR ENA BIT 
1864 016422 023737 001124 001126 CMP $GDDAT,$BDDAT :WAS IT RESTORED ON THE POP INSTR? 
1865 016430 001401 BEQ 2$ ‘BR IF SO 
1866 016432 104056 ERROR 56 ‘EDGE INTR ENABLE FAILED TO RESTORE 
1867 016434 162737 004000 001124 28: SUB #4000,$GDDAT § :SET UP FOR RESET STATE 
1868 016442 100407 BMI TST70 : ZADVANCE TO NEXT TEST IF a HH STATES TESTED 
1869 016444 042737 000020 032374 BIC #20,BUFFER ‘SET UP FOR STACKING RESET STATE 
1870 016452 052737 000020 032400 BIS #20.BUFFER+4 § :SET BIT BEFORE POP INSTR 
1871 016460 000737 BR 1$ :GO TRY RESET STATE 
1873 FLIER ERE RE KERR EERE REE REE ERERE EERE 
(3) s*TEST 70 TEST THAT CHAR STRING ESCAPE GETS RESTORED-CK IT ON STK 
(3) LL HEE RE EEE REEKREEKEEE AREER ERE REE 
(2) 016462 000004 TST70: SCOPE 
(2) 016464 012737 000070 001206 MOV #70, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 
1874 016472 012737 016530 001110 MOV #1$.$LPERR ‘SET UP SCOPE LOOP ADRS 
1875 016500 013737 002272 001122 MOV STKVAL,$BDADR :SET UP REG 26 ADRS 
1876 016506 012737 010000 001124 MOV #10000,$GDDAT  :EXPECT IT TO BE SET INITIALLY 
1877. 016514 012737 176003 032374 MOV #176003, ZBUFFER ‘SET UP LOAD STATUS B' INSTR 
1878 016522 004437 024462 JSR R4,POPSE ‘SET UP JSR, POP & LOAD STATUS B’ INSIR 
1879 016526 176002 176002 ‘LOAD STATUS B' INSTR 
1880 016530 004737 024512 1$: JSR PC.DO 'GO CYCLE THRU INSTRS 
1881 016534 012777 032376 163502 MOV #BUFFER+2,@DPC :DO A JSR 
1882 016542 004537 024446 JSR R5,DELAY sSTALL FOR STACKING 
1883 016546 000001 BITO =COUNT TO 1 
1884 016550 012777 020037 163520 MOV #20037, @STKPT :SET UP STK SEL 
1885 016556 017737 163510 001126 MOV @STKVAL,$B8DDAT READ CHAR STRING ESCAPE BYTE FROM STK 
1886 016564 042737 167777 001126 BIC #167777.$8DDAT :SAVE ONLY CHAR STRING ESCAPE BIT 
1887 016572 023737 001124 001126 CMP SGDDAT,$BDDAT :WAS IT RESTORED ON THE POP INSTR? 
1888 016600 001401 BEQ 2$ :BR IF SO 
1889 016602 104057 ERROR 57 *CHARACTER STRING ESCAPE FAILED TO RESTORE 
1890 016604 162737 010000 001124 2$: SUB #10000, $GDDAT :SET UP FOR RESET STATE 
1891 016612 100407 BMI TST71 ADVANCE TO NEXT TEST IF et STATES JESTED 
1892 016614 042737 000001 032374 BIC #1,BUFFER “SET UP FOR STACKING at STATE 
1893 016622 052737 000001 032400 BIS #1 .BUFFER+4 ‘SET BIT BEFORE POP INSTR 
1894 016630 000737 BR 1$ :GO TRY RESET STATE 
1896 CD IR RTT TR TOR TOR IR RRR RRR EERE RR 
(3) S*TEST 71 TEST THAT L.P. HIT DISABLE GETS RESTORED-CK IT ON STK 
(3) CLEARER REE REE EEE RK ERE REKEE EES 
(2) 016632 000004 1ST71: SCOPE 
(2) 016634 012737 000071 001206 MOV #71,$TESIN :iSET TEST NUMBER IN APT MAIL BOX 
1897 016642 012737 016700 001110 MOV #1$.$LPERR *SET UP SCOPE LOOP ADRS 
1898 016650 013737 002272 001122 MOV STKVAL,$BDADR :SET UP REG 26 ADRS 
1899 016656 012737 000002 001124 MOV #2, $GDDAT SEXPECT IT TO BE SET INITIALLY 
1900 016664 012737 170300 032374 MOV #170300,BUFFER :SET UP LOAD STATUS A INSTR 
1901 016672 004437 024462 JSR R4 POPSET :SET UP JSR, POP & LOAD STATUS A INSTR 
1902 016676 170200 170200 LOAD STATUS A INSTR 
1903 016700 004737 024512 1$: JSR PC,D 60 CYCLE THRU INSTRS 
1904 016704 012777 032376 163332 MOV WOLF FER?2, aDPC :DO A JSR 
1905 016712 004537 024446 JSR R5, DELAY :STALL FOR STACKING 
1906 016716 000001 BITO T TO 1 
1907 016720 012777 020037 163350 MOV #20037,a@STKPT :SET UP STK SEL 
1908 016726 017737 163340 001126 MOV @STKVAL,$BDDAT :READ L.P. HIS DISABLE BYTE FROM STk 
1909 016734 042737 177775 001126 BIC #177775.$BDDAT :SAVE ONLY L.P. HIS DISABLE BIT 
1910 016742 023737 001124 001126 CMP $GDDAT, $BDDAT WAS IT RESTORED ON THE POP INSTR? 
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001124 


032374 
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001206 
177776 
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2$: 


SRA RRAEAREREEEREEEREEREKE EERE EAE EERE ERE EERE 


“*TEST 72 


TST72: 


1$: 


2$: 


3$: 


DTA EEREE ARERR REAR RAARRREARERERR ERE 


SCOPE 


s*TEST 73 


1S173: 


SCOPE 
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THAT L.P. HIT DISABLE GETS RESTORED-CK IT ON STK 


2$ 

60 

#2, $GDDAT 
TST72 
#100,BUFFER 
pe ah ac 


TEST THAT SHIFT OUT WILL GET RESTORED - CK IT ON STK 


WeeRASSAAAAALAALASASALASAAAAARASEASAR AAAS SASARRA RRR EAS AR ARR R DS DS S| 


3zSET TEST NUMBER IN APT MAIL BOX 


#72, $TESTN 
#340,PSwW 
#1$,$i.PERR 
STKVAL , $BDADR 
#0000, SGDDAT 


#BUF F 
#100000, (R4)+ 
000, (R4)+ 


#100000. ai 
#17,( 

7166000, (Rd) 

#20040, @STKPT 
ee 


aDPC 
R5 DELAY 
R4 


2$ 

#20037 ,@STKPT 
@STKVAL , $BDDAT 
#137777, $BDDAT 
 pehanaaenel 


61 

#17,BUFFER+2 
#16.BUFFER+12 
#40000, $GDDAT 


TEST THAT CHAR STRING ESCAPE ON TERMINATE CHAR WILL POP THE STACK 


SL RARER RARER EERE EAA RAE ARERR EEE EE 


Bi tl 


#10, $TIMES 


:BR IF SO 
L.P. HIT DISABLE STATE. TO RESTORE 


SET UP 


Bs see | TO NEXT TEST Y etate STATES TESTED 


FOR RESET STATE 


3$ 
:SET BIT BEFORE POP INSTR 


:GO TRY 


RESET STATE 


;SET PRIORITY TO HIGEST LEVEL 


UP SCOPE LOOP 


REG 26 ADRS 


JSR REL + 4 


ADRS 
SHIFT OUT INITIALLY 
RS IN R4 


SEQ 0058 


JSR REL = THIS WILL BA dy OUT BACK ON STK 


CHAR INSTR 


:SET TOP OF STK 
: START 

SET UP_NPR CNTR 
;ADVANCE TO NEXT INSTR OR DATA 


s;ALLOW TIME FOR EACH OPERATION TO COMPLETE 
COUNT TO 4 


[COUNT THIS NPR 


BR IF 
7SET UP 
;READ 


MORE NPRS 


STK SEL 


REG 26 
SAVE ONLY SHIFT OUT 
31S IT CORRECT? 
:BR IF SO 
4 OUT oe TO RESTORE 
:SET UP A NO SHIFT OUT 
; COMPLEMEN 


T IT 
;SET UP FOR RESET STATE 
:BR IF RESET STATE NOT TESTED 


#100000 , BUF FER+10 


#377, 
#20040, aSTKPT 


3300 10 
TEST 


NUMBER IN AP 


BOX 
DD EXPECT ADRS BUFFER+4 AFTER TERM CHAR 
3 ;SET UP CHAR STRING ESCAPE 
+ 


TO a SHIF 
CHAR LOC = SHIFT IN 
POP & RESTORE INSTR 


APT MAIL 


INSTR 


T UP JSR REL INSTR 


>SET CHAR INSTR 


;START WITH MAX TERM CHAR VALUE 
[SET TOP OF STACK 


ee 
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C2VSCC.P11 29-MAY=79 11:36 173 TEST THAT CHAR STRING ESCAPE ON TERMINATE CHAR WILL POP THE STACK SEQ 0059 

1958 017300 910077 162770 MOV RO, aTERMCH :SET UP TERM CHAR 

1959 017304 010037 032406 MOV RO.BUFFER+12 :SET UP VALUE FOR INSTR 

1960 017310 012777 032374 162726 MOV #BUFFER,@DPC —s_; START 

1961 017316 012737 017272 901110 MOV #1$,$LPERR ‘SET UP SCOPE LOOP ADRS 

1962 017324 005277 162714 INC apPc ‘ADVANCE TO JSR REL INSTR 

1963 017330 004537 024446 JSR R5 DELAY ‘STALL FOR STACKING 

1964 017334 000001 BITO ;COUNT TO 1 

1965 017336 005277 162702 INC aDPC RESUME = SHOULD PICK UP CHAR INSTR 

1966 017342 013737 002244 001122 MOV DPC, $BDADR :SET UP REG ADRS 00 

1967 017350 005277 162670 INC apPc “RESUME - PICK UP TERM CHAR 

1968 017354 004537 024446 JSR RS DELAY “STALL FOR POP 

1969 017360 000020 BITS *COUNT TO 20 

1970 017362 017737 162656 001126 MOV @DPC, $BDDAT *READ DPC 

1971 017370 023737 001124 001126 CMP $GDDAT,$BDDAT :DID IT DO THE POP? 

1972 017376 001401 BEQ 2$ ‘BR IF SO 

1973 017400 104062 ERROR 62 ‘TERMINATE CHARACTER FAILED TO POP STACK 

1974 017402 105300 2$: DECB ~—_ RO ‘ADVANCE TO NEXT TERMINATE VALUE 

1975 017404 100732 BMI 1$ [BR IF MORE TO TEST 

1977 TAR RRREBRRGSBALASZASASAALASSSAALESLSSLE SES SAS ALA RLARASAESAAA RES AR SRSA ASS SS 
(3) SeTEST 74 TEST THAT CHAR STRING ESCAPE WHEN DISABLED WILL NOT POP THE STACK 
(3) MPO SARASRAALALELALALSLESAESALESESRAS ESE SER AS ERAS ASRS ASS R ARS A ARRAS AS S| 
(2) 017406 000004 +8174: SCOPE 
(2) 017410 012737 000074 001206 MOV #74, $TESIN iiSET TEST NUMBER IN APT MAIL BOX 

1978 017416 012737 032410 001124 MOV #BUFFER+14,$GDDAT *EXPECT ADRS DPT3 AFTER TERM CHAR 

1979 017424 012737 176002 032374 MOV #176002,BUFFER ;:SET UP CHAR STRING ESCAPE INSTR-OFF 

1980 017432 012737 100000 032404 MOV #100000. BUF FER+10 :SET UP CHAR INSTR 

1981 017440 012737 000177 032406 MOV #177,BUFFER+12 ;SET UP ASCII TERM CHAR 

1982 017446 012777 000377 162620 MOV #377,aTERMCH | :SET UP TERM CHAR 

1983 017454 012777 020040 162614 MOV #20040,aSTKPT :SET TOP OF STACK 

1984 017462 012777 032374 162554 MOV WBUFFER,@DPC =: START 

1985 017470 012737 163002 032376 MOV #163002, *BUFFER+2. :SET UP JSR REL 

1986 017476 005277 162542 INC ZADVANCE TO JSR INSTR 

1987 017502 004537 024446 JSR aS. DELAY :STALL FOR STACKING 

1988 017506 000001 BITO OUNT TO 1 

1989 017510 005277 162530 INC apPC ADVANCE TO CHAR INSTR 

1990 017514 013737 002244 001122 MOV DPC, $BDADR “SET UP REG ADRS 00 

1991 017522 005277 162516 INC apPc ‘ADVANCE TO TERM CHAR 

1992 017526 004537 024446 JSR R5 DELAY SSTALL FOR POTENTIAL POP 

1993 017532 000020 BIT4 :COUNT TO 20 

1994 017534 017737 162504 001126 MOV @DPC , $BDDAT SREAD THE DPC 

1995 017542 023737 001124 001126 CMP SGDDAT.SBDDAT = 31S IT CORRECT? 

1996 017550 001401 BEQ TST75 :GO TO NEXT TEST IF Ok 

1997 017552 104062 ERROR 62 ‘TERM CHAR POPPED WHEN CHAR STRING TERM DISABLED 

1999 FLARE AAR AEA EHE EEE 
(3) S*TEST 75 TEST THAT STACK OVERFLOW WILL CAUSE AN INTERRUPT 
(3) DLA EERE EERE EERE EATER REED 
(2) 017554 000004 1S175: SCOPE 
(1) 017556 012737 000040 001166 MOV #60, $TIMES ;3D0_ 40_ ITERATIONS 
(2) 017564 012737 000075 0061206 MOV #75.$TESTN ‘SET TEST NUMBER IN APT MAIL BOX 

2000 017572 013701 001252 MOV $VECT1.R1 “GET BASIC VECTOR ADRS 

2001 017576 042701 160000 BIC #160000,R1 * CLR PSw BITS ae ( 

2002 017602 012761 017724 000010 MOV #2$,10(R1) SSET UP STK OVFL INT ADRS 

2003 017610 012761 000340 000012 MOV #340,12(R1) *SET UP PSW TO 7 ON IN 

2004 017616 013737 002256 001122 MOV SREG],$BDADR :SET UP REG 12 ADRS 
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000340 
032374 
024446 


177776 


162346 
157777 


020000 
001126 


001124 
020000 
020000 
024646 


000 
032374 
024446 


177776 


leetes 
67777 





MACY11 30G6(1063) 
T75 


#20040, ,@STKPT 
#20000 SCDDAT | 

#163006 BUFFER 
#340,PSW 

#BUF FER, aDPC 

R5 DELAY 


PSW 
RO 


1$ 
aSREGI $BDDAT 


#157777, $BDDAT 
63 


4$ 
(R6)+, (R6)+ 
ee 


$ 
$BDDAT 
63 


4$ 
$GDDAT 


#20000, @SREGO 


4$ 
#20000, $BDDAT 
PC,RSTVEC 


- 
17-SEP-79 08:48 PAGE a 
TEST THAT STACK OVERFLOW WILL CAUSE AN INTERRUPT SEQ 0060 


SET TOP OF STK 
;WILL COUNT TO OVFL IN RO 
sWILL EXPECT STK OVFL 


“SET PSW TO 7 
‘ST 


3C 
sALLOW INT 















T UP JSR INSTR 






ART 
SSTALL FOR STKING 
OUNT TO 1 








TO OCCUR 

i THIS STK OPERATION 
F NOT TO STK OVFL LEVEL 
=READ REG 12 
SAVE ONLY STK OVFL 
SSTACK OVERFLOW FAILED TO INTERRUPT 
:GO LOOK FOR 7 ON TEST SWITCH 
FIX STK SINCE NO RTI 
:SEE IF STK OVFL BIT SET 
IF SO 







;BR 
: INDICATE OVFLO BIT NOT SET 


; STACK OVERFLOW ays begets BUT NO FLAG 
LOOK FOR LOOP ON TEST SW 
ZENPECT oe 


StL SET? 


BR IF NOT 
s INDICATE IT IS STILL SET 
SRESET FAILED TO CLR STACK OVERFLOW FLAG 


SRESTORE STK OVERFLOW VECTOR HALT 


SL REE EERE REE EEE EERE EERE EERE KEE 


TEST THAT STACK UNDERFLOW WILL CAUSE AN INTERRUPT 


#40, $TIMES 
#76, $TESTN 
$VECT1,R1 

a oR) 
#2$,10(R1) 
#340,12(R1) 
SREG1 , SBDADR 


RS ,DELAY 

PSW 

RO 

1$ 

@SREG1, SBDDAT 
+ shal camel 


4$ 
(R6)+, (RB) + 


J DRE RRR ERE REE KEE EERE EERE EEE ERE KEKE 


3:D0 40 ITERATIONS 
3;SET TEST NUMBER IN APT MAIL BOX 


:GET BASIC VECTOR ADRS 


; CLR PSW BITS *C( 


;SET UP STK UNDERFLOW INT ADRS 
7 ON IN 


WILL COUNT TO UNDERFLOW IN RO 
SET STACK PTR TO ZERO 
sett EXPECT STK UNDERFLOW 


T UP POP INSTR 
SET PSW TO 7 
; START 


STALL FOR POPING 
COUNT TO 1 


ALLOW — TO OCCUR 
;COUNT THI 


S_ POP OPERA 


TION 
;BR IF NOT 13" STK UNDERFLO LEVEL 


ZREAD REG 1 

SAVE ONLY STK UNDERF 

STACK “ett FAILED” TO INTERRUPT 
[GO LOOK FOR LOOP - Ll SWITCH 
sFIX STACK SINCE NO RTI 
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CZ2VSCC.P11 29-MAY-79 
2056 020152 032777 
2057 020160 001004 
2058 020162 005037 
2059 020166 104064 
2060 020170 1 
2061 020172 005037 
2062 020176 
2063 020200 032777 
2064 020206 1404 
2065 020210 012737 
2066 020216 104064 
2067 020220 004737 
2068 
2069 

(3) 

(3) 

(2) 020224 

(1) 020226 012737 

(2) 020234 012737 
2070 020242 5 
2071 020244 012737 
2072 020252 013737 
2073 020260 012700 
2074 020264 012720 
2075 020270 012720 
2076 020274 005020 
2077 020276 005020 
2078 020 012720 
2079 020304 005020 
2080 020 005020 
2081 020310 012710 
2082 020314 012700 
2083 020 012737 
2084 020326 010037 
2085 020332 ~34537 
2086 0203 
2087 
2088 020340 017737 
2089 020346 023737 
2090 020354 001403 
2091 0203 010037 
2092 020 04065 
2093 020 005237 
2094 020370 005200 
2095 020372 032700 
2096 020376 001753 
2097 
2098 

(3) 

(3) 

(2) 0204 

(1) 020402 012737 

(2) 020410 012737 
2099 020416 012737 
2100 020424 013737 
2101 020432 012700 


11:36 
010000 
001126 


001124 
010000 
010000 
024646 


000040 
000077 


020326 
002250 


030576 


PART II] 


162076 


162040 
001126 


001166 
001206 


001110 
001122 


001124 


- 
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176 TEST THAT STACK UNDERFLOW WILL CAUSE AN INTERRUPT 


BIT #10000, @SREG1 
BNE 
CLR $BDDAT 
ERROR 64 
BR 4$ 
3$: CLR $GDDAT 
RESET 
BIT #10000 ,a@SREGO 
BEQ 4 
MOV #10000, $BDDAT 
ERROR 4 
4$: JSR PC ,RSTVEC 


can iF so UNDERFLOW BIT SET 


; INDICATE UNDERFLOW BIT NOT SET 

:STACK UNDERFLOW INTERRUPTED BUT NO FLAG 
7GO LOOK FOR LOOP ON TEST Sw 

SEXPECT ZERO 

:CLR FLAG 

STILL ar 


BR IF 

“INDICATE. IT IS STILL SET 

RESET FAILED TO CLR STACK UNDERFLOW FLAG 
“RESTORE STK UNDERFLOW VECTOR WITH HALT 


DDR RRR ERR REE REREREEREEKRKEEEREERERRREREKEEREH 


zeTEST 77 TEST THAT X DELTA LENGTH COMPUTES WITH MAINT SW3 SET 


SLA EREE EERE ERERAREEKERE RRR REAR EREERERERK RE 


TST77: SCOPE 


MOV #40,$TIMES 3:;D0 40 ITERATIONS 
MOV #77, $TESIN 37SET TEST NUMBER IN APT MAIL BOX 
RESET ;MAKE SURE ALL fy ARE CLEARED 
MOV #1$,$LPERR + SET UP SCOPE LOOP ADRS 
MOV XPOS, wy ;SET UP REG ADRS 04 
MOV #BUF FER RO GET INSTR ADRS POINTER 
MOV #154024, (RO) + SET UP UNITY VECTOR SCALE 
MOV #114000, (RO) + ;STORE POINT INSTR 
CLR (RO) + ;x=0 
CLR (RO) + :Y=0 
MOV #110000, (RO) + ;STORE LONG VECTOR INSTR 
CLR (RO) + :X TO BE UPDATED 
CLR (RO) + s¥=0 
MOV #72000. (RO) ;STORE STOP INSTR 
MOV #1,R ;RO CONTAINS X VECTOR LENGTH 
MOV #) SCDDAT ; CONTAINS EXPECTED DELTA LENGTH 
1$: MOV RO, *BUFFER+12 ;SET UP NEXT VECTOR LENGTH 
JSR R5 EXECUTE :GO START DISPLAY 
7 ;RESUME COUNT 
MOV @XPOS , SBDDAT :DELTA LENGTH READ BACK FROM X POSITION REG 
CMP SGDDAT ,S$BDDAT 71S IT CORRECT? 
BEQ 2$ ;BR IF SO 
MOV RO, STMPO ;SET UP X VECTOR LENGTH FOR ER TYPE 
ERROR 65 =X DELTA LENGTH INCORRECT 
2$: INC SGDDAT EXPECTED be ts LENGTH 

INC R TADV VANCE TO NEXT X + te VALUE 
BIT #2000,R0 ;HAVE WE DONE 10 BITS 
BEQ 1$ ‘BR IF NOT 

MARE REASBSAALALLELLEL£LESELE SELES ER SSE EERE EERE SER ERAS RRR E RRR ESR SES AS SE 

SSTEST 100 TEST THAT Y DELTA LENGTH COMPUTES WITH MAINT SwW3 SET 


—MABRBERALASASZLAALLASALLESASASSER ERA LAR EASA RASA RRR ARR RRR R RR ASA SSS ES | 


181100: SCOPE 
MOV 


MOV #BUF FERRO 


3:D0 40 ITERATIONS 
7:SET TEST NUMBER IN APT MAIL BOX 
2 SET UP SCOPE | + at ADRS 


EG ADRS 06 
[GET INSTR ADRS POINTER 


SEQ 0061 
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C2VSCC.P11.  29=MAY=-79 11:36 T100 ‘TEST THAT Y DELTA LENGTH COMPUTES WITH MAINT SW3 SET SEQ 0062 
2102 020436 012720 154024 MOV #154024, (RO)+ ;SET UP UNITY VECTOR SCALE 
2103 020442 012720 114000 MOV #114000. (RO)+ STORE POINT INS 
104 020446 005020 CLR (RO) + :X=0 
2105 020650 012720 001777 MOV #1777, (RO)+ ‘¥=1777 
2106 020654 012720 110000 MOV #110000, (RO)+ STORE LONG VECTOR INSTR 
2107 020460 005020 CLR (RO) + ix 
2108 020462 005020 CLR (RO)+ :Y TO BE UPDATED 
2109 020464 01271C 172000 MOV #72000, (RO)  :STORE STOP INSTR 
2110 020470 012700 020001 MOV #20001,RO ‘RO CONTAINS Y VECTOR LENGTH (DRAW TOP TO BOTTOM) 
2111 020474 012737 000001 001124 MOV #1, $GDDAT “CONTAINS EXPECTED Y DELTA LENGTH 
2712 020502 010037 032410 1$: MOV RO, * BUFFER+14 ;SET UP NEXT VECTOR LENGTH 
2113 020506 004537 025044 JSR RS. EXECUTE ‘GO START DISPLAY 
e114 020512 000007 7 ‘RESUME COUNT 
2116 020514 017737 161532 001126 MOV aYPOS , SBDDAT :DELTA Serr; READ BACK FROM Y POSITION REG 
2117 020522 023737 001124 001126 CMP $GDDAT , $BDDAT ;1S IT CORRECT? 
2118 020530 001403 BEQ 2$ ‘BR IF SO 
2119 020532 010037 001164 MOV RO, $TMPO ;SET UP Y VECTOR LENGTH _ ER TYPE 
2120 020536 104065 ERROR 65 ‘Y DELTA LENGTH INCORRECT 
2121 020540 005237 001124 2$: INC $GDDAT ‘BUMP EXPECTED DELTA LENGTH 
2122 020544 005200 INC RO SADVANCE TO NEXT Y VECTOR VALUE 
2123 020546 032700 002000 BIT #2000,RO [HAVE WE DONE 10 BITS 
e124 020552 001753 BEQ 1$ ‘BR IF NOT 
2126 SL RRR RRR EERE EH 
(3) s*TEST 101 TEST THAT DELTA LENGTH FOLLOWS THE LONGER OF X OR Y WITH MAINT SwW3 SET 
(3) LEER EERE RE RERE REE REE EEE EREREER ERE EEER EEE 
(2) 020554 000004 1ST101: SCOPE 
(1) 020556 012737 000040 001166 MOV #40,$TIMES 7:D0 40 ITERATIONS 
(2) 020564 012737 000101 001206 MOV #101, $TESIN +:SET TEST NUMBER IN APT MAIL BOX 
2127 020572 012737 020652 0601110 MOV #1$,$LPERR *SET UP SCOPE LOOP ADRS 
2128 020600 013702 002252 MOV YPOS ,R2 ‘R2 CONTAINS REG ADRS OF DELTA (x OR Y POS REG) 
2129 020604 012700 032374 MOV #BUF FERRO ‘GET INSTR ADRS POINTER 
2130 020610 012720 154024 MOV #154024.(RO)+ :SET UP UNITY VECTOR SCALE 
2131 020614 012720 114000 MOV #114000. (RO)+ : STORE POINT INSTR 
2132 020620 005020 CLR (RO) + x=0 
2133 020622 005020 CLR (RO) + Y=0 
020624 012720 110000 MOV #110000, (RO) + ‘STORE LONG VECTOR INSTR 
2135 020630 005020 CLR (RO) + +X TO BE UPDATED 
2 020632 005020 CLR (RO) + :Y TO BE UPDATED 
2137 020634 012710 172000 MOV #172000,(RO) STORE STOP INSTR 
2138 020640 012700 001777 MOV a“ 1777,R0 ‘RO CONTAINS Y VECTOR LENGTH 
2139 020644 005001 CLR *R1 CONTAINS X VECTOR LENGTH 
2140 020646 010037 001124 MOV RO. $GDDAT [CONTAINS EXPECTED DELTA LENGTH 
2141 020652 010037 03241 1$: MOV RO.BUFFER+14 SET UP Y VECTOR LENGTH (1777 TO 0) 
2142 020656 010137 032406 MOV R1.BUFFER+12  :SET UP X VECTOR LENGTH (0 TO 1777) 
2143 020662 004537 025044 JSR RS EXECUTE "GO START DISPLAY 
166 020666 000007 ? [RESUME COUNT 
2146 020670 010237 001122 MOV R2, $BDADR :SET UP REG ADRS WHERE DELTA IS 
2147 020674 011237 601126 MOV (R2), $BDDAT “GREATER OF X OF Y DELTA READ FROM X OR Y POS REG 
2148 020700 023737 001124 001126 CMP S$GDDAT,$BDDAT :1S IT CORRECT? 
2149 020706 001404 BEQ 2$ “BR IF SO 
2150 020710 013737 001124 001164 MOV $GDDAT.$TMPO SET _UP LONGEST X OR Y VECTOR LENGTH FOR ER TYPE 
2151 020716 104065 ERROR 65 “DELTA LENGTH DOES WC. EQUAL LONGER OF Xx OR Y 
2152 020720 005300 2s: DEC RO [DECREASE Y VECTOR VUE BY 1 
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CZVSCC.P11 29-MAY-79 11:36 T101 TEST THAT DELTA LENGTH FOLLOWS THE LONGER OF X OR Y WITH MAINT SW3 SET SEQ 0063 
2153 020722 100413 BM! TST102 37T0 NEXT TEST IF 10 BITS -¢ Xx & Y HAVE BEEN TESTED 
2154 020724 005201 INC R1 ; INCREASE x VECTOR ae 3 oa 
2155 020726 020001 CMP RO,R1 ;LOOK FOR THE LARGEST OF X OR 
2156 020730 101005 BH] 3$ [BR IF Y VECTOR STILL CREATER THAN x 
2157 020732 013702 002250 MOV XPOS ,R2 [NOW DELTA WILL BE IN XPOS 
2158 020736 010137 001124 MOV R1,$GDDAT ;DELTA LENGTH WILL BE THAT OF X VECTOR 
2159 020742 000743 BR 1$ ; TRY NEXT VECTOR COMBINATION 
2160 020744 010037 001124 3$: MOV RO, $GDDAT “DELTA LENGTH WILL BE THAT OF Y VECTOR 
$ie3 020750 000740 BR 1$ ;TRY NEXT VECTOR COMBINATION 
2163 DSSS IIIS IIIIOISISIIIDIUIUIOISIIIOIISIIOIUIUIDISISIOIUIDIOIIOIOIUIUINI IIR Ii iit 

(3) s*TEST 102 CHECK TANGENT WHEN INCREMENTING Y AT 1777 X WITH MAINT SW3 SET 
(3) JD ISIIIOIIIIIIIOOIISIDISIOIIIISISIDIOISIIUIUIIIIIOIUISIOIOISISISISIIIIOIOIIOIDIDIDIIOIIIOISIOIOIIOI 
(2) 020752 000004 TST102: SCOPE 
(1) 020754 012737 000040 001166 MOV #40,$TIMES 72D0 “ ITERATIONS 
(2) 020762 012737 000102 001206 MOV #102, STESTN 77SET TEST NUMBER IN APT MAIL BOX 
2164 020770 012737 021056 001110 MOV #2$, $LPERR SET we SCOPE LOOP ADRS 
2165 020776 013702 002252 MOV YPOS ,R2 R2 CONTAINS REG ADRS OF TANGENT (X OR Y POS REG) 
2166 021002 013701 002262 MOV YDOFF ,R1 3R1 CONTAINS REG ADRS OF HI ORDER TANGENT 
2167 021006 012700 032374 MOV #BUFFER, RO [GET INSTR ADRS POINTER 
2168 021012 012720 154024 MOV #154024,(RO)+  ;SET UP UNITY VECTOR SCALE 
2169 021016 012720 114000 MOV #114000,(RO)+  ;STORE POINT INSTR 
2170 021022 005020 CLR (RO) + :X=0 
2171 021024 005020 CLR (RO) + 7Y¥=0 
2172 021026 012720 110000 MOV #110000, (RO) + ;STORE LONG VECTOR INSTR 
2173 021032 012720 001777 MOV #1777, (RO)+ 3x21777 
2174 021036 005020 CLR (RO) + :¥ TO BE UPDATED 
2175 021040 012710 172000 MOV #172000, <RO) :STORE STOP INSTR 
2176 021044 005000 CLR RO ;RO CONTAINS INCREMENTING Y VECTOR LENGTH (0-1777) 
2177 021046 010037 032410 1$: MOV RO ,BUFFER+14 ;SET UP Y VECTOR LENGTH (0-1777) 
2178 021052 004737 024732 JSR PC,CALTAN 3GO FIGURE OUT WHAT TAN SHOULD BE 
2179 021056 004537 025044 2$: JSR RS,EXECUTE :GO START DISPLAY 
sine 021062 000007 7 ;RESUME COUNT 
2182 021064 010237 001122 MOV R2,$BDADR ;SET UP REG ADRS WHERE TANGENT IS 
2183 021070 011237 001126 MOV (Re) SBDDAT + TANGENT IS READ FROM X OR Y POSITION REG 
2184 021074 011105 MOV (R1),R5 ;READ HI ORDER TANGENT BITS 
2185 021076 004737 024706 JSR PC, TANCON :GO MAKE UP 12 BIT TANGENT 
2186 021102 023737 001124 001126 CMP SGDDAT , SBDDAT 71S IT CORRECT? 
2187 021110 001403 BEQ 3$ [BR IF « 
2188 021112 010037 001164 MOV RO,STMPO ;SET UP Y VECTOR LENGTH FOR ER TYPE 
2189 021116 104066 ERROR 66 ; INCORRECT TANGENT FOR X & - VALUE INDICATED 
2190 021120 005200 3$: INC RO + INCREASE x ee VALUE BY 
2191 021122 022700 001777 CMP #1777,RO ;RO UP TO 1777 YET? 
2192 021126 101347 BHI 1$ ;BR IF NOT 
2193 021130 103405 BCS TST103 ;zNEXT TEST IF RO = 2000 
2194 021132 013702 002250 MOV XPOS ,R2 : TANGENT WILL NOW BE IN XPOS 
2195 021136 013701 002260 MOV XDOFF , R1 HI ORDER > BITS NOW IN XDOFF 
5138 021142 000741 BR 1$ ONE MORE TIME 
2198 DDR IR RR TR TTR TERR REE RR ER ERR ER RRR Ke 
(3) S*TEST 103 CHECK TANGENT WHEN INCREMENTING X AT 1777 Y WITH MAINT Sw3 SET 
(3) LAA E RE RE RR ERREAARTRTEAe 
(2) 021144 000004 7$1103: SCOPE 
(1) 021146 012737 000040 001166 MOV #40, STIMES 32:D0 40 ITERATIONS 
(2) 021154 012737 000103 001206 MOV #103, STESTN 7:SET TEST NUMBER IN APT MAIL BOX 
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29-MAY=79 11:36 CHECK TANGENT WHEN INCREMENTING X AT 1777 Y WITH MAINT SW3 SET SEQ 0064 
021162 012737 021250 001110 MOV #2$,$LPERR T UP SCOPE LOOP ADRS 
021170 013702 002250 MOV XPOS ,R2 a CONTAINS REG ADRS OF TANGENT (X OR Y POS REG) 
021174 013701 002260 MOV XDOFF ,R1 - SRT CONTAINS REG ADRS OF HI ORDER TANGENT 
21200 012700 032374 MOV #BUFFER,RO ‘GET INSTR ADRS POINTER 
0212046 012720 154024 MOV #154024. (RO)+ :SET UP UNITY VECTOR SCALE 
021210 012720 114000 MOV #114000. (RO)+ :STORE POINT INSTR 
021214 005020 CLR (RO) + :X=0 
021216 905020 CLR (RO) + Y=0 
021220 012720 110000 MOV #110000, (RO)+ STORE LONG VECTOR INSTR 
021224 005020 CLR (RO) + :X_TO_BE UPDATED 
021226 012720 001777 MOV #1777, (RO)+ =1777 
021232 012710 172000 MOV #172000. (RO) :STORE STOP INS 
1236 005 CLR RO =RO.CONTAINS INCREMENT ING x VECTOR LENGTH (0=1777) 
021240 010037 032406 1$: MOV RO, BUFFER+12 :SET UP X VECTOR LENGTH (0-17 
021244 004737 024732 JSR PC; CALTAN 'GO FIGURE OUT WHAT TAN pat ys 
021250 004537 025044 2$: JSR R5 EXECUTE ‘GO START DISPLAY 
021254 7 SRESUME COUNT 
021256 010237 001122 MOV R2,$BDADR ;SET UP REG ADRS WHERE TANGENT IS 
021262 011237 001126 MOV (R2) , SBDDAT ‘TANGENT IS READ FROM X OR Y POSITION REG 
021266 011105 MOV (R1) .R5 ‘READ HI ORDER TANGENT BITS 
021270 737 024706 JSR PC,TANCON _.. :GO MAKE UP 12 BIT TANGENT 
021274 023737 001124 001126 CMP SGDDAT,$BDDAT © :IS IT CORRECT? 
021302 001403 BEQ ‘BR IF SO 
21 010037 001164 MOV RO, STMPO ‘SET UP X VECTOR LENGTH FOR ER TYPE 
021310 104066 ERROR 66 INCORRECT TANGENT FOR X & v, VALUE INDICATED 
021312 005200 3$: INC RO ZINCREASE Y VECTOR VALUE BY 
021314 022700 002000 CMP #2000,RO “RO UP TO 2000 YET? 
027320 001347 BNE 1$ ‘BR IF NOT 
MeASBABASAASAA£Z££2 222222 SESESESSE SES ESE SESE SSSR ERR RASS SRR SRR SER ESSE SS 
SSTEST 104 TEST THAT DPC BITS 16 & 17 WILL SET & RESET 
MBBSBASBSSASZAE£ZAE£L£2£2S GEL ESZLLLLESESAS SSE SES AS ER EERE RRR RRS RRR RRR EASES SS 
021322 781104: SCOPE 
021324 012737 001166 MOV #40, $TIMES ::D0 40 ITERATIONS 
021332 012737 000104 0012 MOV #104, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
021340 012737 000060 001124 MOV #60, $GDDA ‘EXPECT BOTH BITS INITIALLY 
1346 012700 006000 MOV #6000,RO ‘PUT RELOCATE VALUE IN RO 
021352 012737 021360 0011 MOV #1$,$LPERR :SET UP SCOPE LOOP ADRS 
1360 012777 010000 160710 1$: MOV WMAINT1,@STKPT :SET MAINT SW 1 
1 010077 160662 MOV RO, aRLO *SET UP RELOCATE VALUE 
021372 005077 160646 CLR apPC :SET UP DPC ADRS He START DISPLAY 
021376 013737 002256 001122 MOV SREG1,$BDADR :SET UP REG ADRS 12 
21404 017737 160646 001126 MOV @SREGI,$BDDAT  :READ REG 12 
021412 042737 177717 001126 BIC #177717, $BDDAT :SAVE ONLY DPC BITS 17 & 16 
21420 023737 001124 001126 CMP $GDDAT,$BDDAT ARE THEY CORRECT 
021426 001401 BEQ 2$ ‘BR IF OK 
1430 104067 ERROR 67 SRELOCATE VALUE FAILED TO SET UP DPC 16 OR 17 
021432 162737 20 001124 28: SUB #20, $GDDAT ‘SET UP NEXT ADRS VALUE AT EXPECTED LOC 
021440 162700 002000 SUB #2000,RO ‘SET UP NEXT ADRS VALUE AT RO 
021444 100345 BPL 1$ ‘BR IF MORE ADRS TO TEST 
021446 005037 001110 CLR $LPERR ‘NO RESET SCOPE LOOP 
021452 005037 001124 CLR $GDDAT SEXPECT ZERO 
021456 012777 000 160570 MOV #6000, @RLO *SET BOTH BITS 
021464 005077 160554 CLR aDPC “CLR DPC & START - NO NPR 
021470 RESET ‘CLR DPC 16 & 1 


N 
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CZVSCC.P11.  29=-MAY=79 11:36 1104 ‘TEST THAT DPC BITS 16 & 17 WILL SET & RESET SEQ 0065 
2250 021472 017737 160560 001126 MOV @SREG1,$BDDAT  ;READ REG 12 
2251 021500 042737 177717 001126 BIC #177717,$BDDAT :SAVE ONLY DPC 16 & 17 
2252 021506 001401 BEQ 3$ ‘BR IF CLEARED 
2253 021510 104067 ERROR 67 sRESET FAILED TO CLEAR DPC 16 OR 17 
254 021512 005077 160536 3$: CLR @RLO 'CLR RELOCATE REG BEFORE ADVANCING 
2256 ? PIPE aR hata Raha hahahahahaha lalahahelahaleheheheialelelelelehsiahelelelsisiaiahahelelelsisisieieisicislsisieialeiaisislsishelehel 
(3) [*TEST 105 TEST THAT DPC GETS PUSHED ONTO STACK AT HIGHEST BOUNDRY BELOW 28k 
(3) FE RARER RRR REE RRR E ERE ER ERE EERE EERE EK 
(2) 021516 000004 TST105: SCOPE 
(2) 021520 012737 000105 001206 MOV #105, $TESTN ::SET TEST NUMBER | IN APT MAIL BOX 
2257 021526 005737 002216 TST CENAB :DO WE HAVE MORE THAN 8K? 
2258 021532 001477 BEQ TST106 +:1F NOT = NEXT TEST. 
2259 021534 012737 021620 001110 1$: MOV #3$,$LPERR :SET UP SCOPE LOOP ADRS 
2260 021542 013737 002272 001122 MOV STKVAL,$BDADR :SET UP REG 26 
2261 021550 005002 CLR R2 =CLR ADRS ROTATIONAL VALUE 
2262 021552 013700 002214 MOV MEMMAX RO [GET LAST 4K MEM BLK 
2263 021556 010001 MOV RO,R1 ‘PUT IT INTO R1 
2264 010003 MOV RO,R3 ;PUT IT INTO R3 ALSO 
2265 021562 062701 020000 ADD #20000,R1 ‘POINT TO 1ST NON-EXISTENT MEM ADRS IN R1 
2266 021566 012704 020040 2s: MOV #20040.R4 :SET UP TOP OF STACK INITIALLY IN R4 
2267 021572 012737 000034 001164 MOV #34, $TMPO ‘SET UP STACK LEVEL WHERE JSR'ED DPC IS STORED 
2268 021600 010337 001124 MOV R3,$GDDAT ;SAVE EXPECTED JSR RETURN ADRS OF STK 
2269 021604 162703 000002 SUB #2.R3 “REDUCE ADRS BY 2 TO ALLOW FOR JSR REL INSTR 
2270 021610 011337 002210 MOV Abo LDRSV1 [SAVE LOCATION 
2271 021614 012713 163400 MOV #163400, (R3) ‘LOAD UP JSR REL INSTR 
2272 021620 010477 160452 3$: MOV R4,a@STKPT “SET STK PTR 
2273 021624 010377 160414 MOV R3,aDPC ‘START AT ADRS IN R3 
2274 021630 004537 024446 JSR R5 DELAY ‘STALL FOR STACKING 
2275 021634 000001 BITO *COUNT TO ONE 
2276 021636 013777 001164 160432 MOV STMPO,a@STKPT  :SEL STK LEVEL OF STORED DPC 
2277 021644 017737 160422 001126 MOV @STKVAL,$BDDAT :READ STORED sR RETURN ADRS 
2278 021652 023737 001124 001126 CMP SGDDAT,$BDDAT 1S IT CORRECT? 
2279 021660 001401 BEQ 4$ IF SO 
2280 021662 104005 ERROR 5 JSR REL FAILED TO PUSH ON STK THE RETURN ADRS 
2281 021664 162704 000004 4$: SUB #4 RG SADVANCE TO NEXT STK LEVEL 
2282 021670 162737 000004 001164 SUB #4. $TMPO SHAVE ALL 8 LEVELS BEEN TESTED? 
2283 021676 100350 BPL ‘BR IF NOT 
2284 021700 013713 002210 MOV LDRSV1, (R3) SRESTORE MEM LOC 
2285 021704 005702 TST R2 ‘IS THIS THE 1ST ADRS PASS? 
2286 021706 001003 BNE 5$ :BR IF NOT 
2287 021710 012702 000002 MOV #2,R2 :SET UP ADRS ROTATIONAL FACTOR IN R2 
2288 021714 000401 BR 6$ :THIS TIME DON'T ROTATE 
2289 021716 006302 S$: ASL R2 ‘SELECT NEXT ADRS BIT TO. LEFT 
2290 021720 010003 6$: MOV RO,R3 [GET HIGHEST ADRS BOUNDRY 
2291 021722 060203 ADD R2.R3 ‘ADD IN NEXT ADRS BIT FOR TEST 
2292 021724 103402 BCS TST106 *:TO NEXT TEST IF ADRS GREATER THAN 16 BITS 
2293 021726 020103 CMP R1,R3 *1S THERE ROOM FOR THIS ADRS BIT? 
229% 921730 103316 BCC 2$ ‘BR IF SO 
2296 DLE REE REE KEE REE EREEEREEE RK EERE 
(3) S*TEST 106 TEST THAT DPC GETS RESTORED FROM STACK AT HIGHEST BOUNDRY BELOW 28k 
(3) CLARA REAR AERA ERE ERE EERE ERR EERE EEE EAR 
(2) 021732 000004 TST106: SCOPE 
(2) 021734 012737 000106 001206 MOV #106, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 


2297 021742 005737 002216 TST CENAB ;DO WE HAVE MORE THAN 8K? 


CZVSC-C ye INSTRUCTION TEST PART Ii oy dt 
-79 11:36 7106 T THAT DPC GETS RESTORED FROM STACK AT HIGHEST BOUNDRY BELOW 28k 


CZVSCC.P11 


021746 


0 
022202 


022204 
022206 
022214 


29-MAY=~ 


103277 


000004 
012737 
012737 


022050 
002214 


024446 


160140 
024446 


160126 
001124 


000040 
000107 


001110 


032374 


001164 


002212 
000002 


001122 


001164 


001166 
001206 


1$: MOV 


2s: 


3$: MOV 


4$: 


5$: ASL 
6$: 


6 
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TST107 
#3$,$LPERR 


aDPC 
R5,DELAY 
aDPC 
R5,DELAY 
aDPC , $BDDAT 
S$GDDAT , SBDDAT 
4$ 

35 

4 RS 

#4 ,$TMPO 

3$ 

LDRSV1, (R3)+ 
LERSNS (R3) 


SEQ 0066 


:1F NOT = NEXT TEST 
SET UP SCOPE LOOP ADRS 
[CLR ADRS ROTATIONAL VALUE 
:GET LAST 4K MEM BLK 
:PUT IT INTO 
:PUT IT_INTO R3 ALSO 
:POINT TO 1ST NON-EXISTENT MEM ADRS IN R1 
;SET UP POP INSTR IN LOWEST 8K 
:SET TOP OF STACK INITIALLY IN R4 
‘Say UP STK L ETED.JSR-RETURN. ADR ED DPC IS STORED 


RS 
U 4 TO ALLOW FOR JSR ABS INSTR 
“SAVE LOCAT 
SAVE LOCATION 
;LOAD UP JSR ABS INSTR 
[LOAD UP ABS ADRS TO POP P sere: IN LOWEST 8k 


SET UP REG ADRS 00 

7PICK UP ABS ADRS (POP INSTR ADRS) 
sDELAY FOR STACKING 

;COUNT TO ONE 


;PICK UP POP INSTR 
STALL FOR POPPING 


[COUNT TO ONE 

:GET RETURN ADRS FOR DPC 

:IS 44 oo ECT? 

“DPC FAILED TO RESTORE AT ADRS & STK LEVEL INDICATED 
;SET UP NEXT STK SELECTION LEVEL 

SHAVE WE GONE THRU 8 LEVELS THIS ADRS 

:BR IF NOT 

RESTORE MEM LOC 

RESTORE MEM LOC 

71S THIS THE ist ADRS PASS? 


:BR IF NOT 
;SET UP ADRS ve akties FACTOR IN R2 
STHIS TIME DON'T ROTATE 

7SELECT NEXT ADRS BIT TO LEFT 

:GET HIGHEST 4K BOUNDRY ADRS 
ZADD IN NEXT ADRS BIT FOR TEST 

;TO_ NEXT TEST IF ADRS GREATER THAN 16 BITS 
Z1S THERE ROOM FOR THIS ADRS BIT 
7BR AND EXERCISE THIS BIT IF SO 


WES SSAALASASLESASASASSAALASSA LEAS ASE SEES AS AEA RRR RRA RS ASR RRR DS SD 


TEST THAT THE VS60 CAN OPERATE ABOVE 28K 


FLARE EEAEKEERR KEE REREREREEREKEKEEEEEREE 


**TEST 107 


TST107: SCOPE 
MOV 
MOV 


#40,$TIMES 
#107, $TESIN 


3:D0_40 ITERATIONS 
3;SET TEST NUMBER IN APT MAIL BOX 


THIS TEST USES THE GRAPHPLOT INCREMENT PART OF THE ‘LOAD STATUS 8° 


: INSTR TO HOLD THE CURRENT 4K MEMORY BLOCK 


ABOVE 28K. 


ADRS BEING ADDRESSED 


THE 6 BITS OF THE GRAPHPLOT HAVE THE FOLLOWING RELATIONSHIP: 
16: 32K, 20=36K, 22=40K, 24=44K, ETC. 


UP TO 76=128K. THE VS60 PREF ORMS 


C 6 
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CZVSCC.P11 29=MAY-79 11:36 7107 TEST THAT THE VS60 CAN OPERATE ABOVE 28K SEQ 0067 
2349 >THE FOLLOWING INSTRS IN EA 4K BLK ABOVE 28K = JSR,POP & ‘LOAD STATUS 
2350 ‘B' (LD GRAPHPLOT INC). AN ERROR IS REPORTED IF THE GRAPHPLOT VALUE 
Sees sRECEIVED IS DIFFERENT THAN THE VALUE WRITTEN TO THE 4K BLK UNDER TEST. 
2353 022222 005737 002220 TST KTENAB :DO WE HAVE UPPER CORE? 

2354 022226 001547 BEQ TST110 ::IF NOT GO TO NEXT TEST 

2355 022230 100437 1$: BMI 3$ ;BR IF MEM ALREADY LOADED WITH DISPLAY CODE 
2356 022232 052737 100000 002220 BIS #100000,KTENAB :DO IT 1ST TIME ONLY 

2357 022240 012777 001600 157766 MOV #1600, aKIPAR2  :START AT 

2358 022246 012701 174116 MOV #174116,R1 *GRAPHPLOT VALUE WILL CONTAIN 4K MEM BLK NO 
2359 022252 012700 040000 2s: MOV #40000. RO ;USE ADRS “ZERG & KIPAR2 

2360 022256 052737 001400 177572 BIS #1400,@4KTSRO  :ENABLE KT MAINT MODE 

2361 022264 012720 163001 MOV #163001, (RO)+  =SET UP mSR REL INSTR 

2362 022270 010120 MOV R1, (RO)+ ;SET UP LOAD STATUS B INSTR 

2363 022272 012710 166000 MOV #166000, (RO) :SET UP POP INSTR 

2364 022276 042737 001400 177572 BIC #1400, a4KTSRO ‘DISABLE K KT 

2365 022304 027737 157724 002222 CMP @k IPAR2 ,K TMAX :HAS INSTR CODE BEEN LOADED THRU CODE 
2366 022312 001406 BEQ 3$ IF SO 

2367 022314 062777 900200 157712 ADD #200, aK IPAR2 {ADVANCE TO NEXT 4K BLK 

2368 022322 062701 000002 ADD #2,Ri SRECORED MEM BLK IN GRAPHPLOT INC INSTR 
2369 022326 000751 BR 2$ *GO SET UP INSTRS IN NEXT 4K BLK OF CORE 
2370 022330 012777 001600 157676 3$: MOV #1600,@KIPAR2 :SET UP 28K ADRS 

2371 022336 005077 157712 4$: CLR @RLO ;CLR RELOCATE REG 

2372 022342 017700 157666 MOV @K IPAR2,RO :GET CURRENT 4K BLK ADRS 

2373 022346 004737 024576 JSR PC,DPCONV :GO CONVERT 4K BLK ADRS INTO 18 BIT ADRS 
2374 022352 010037 001124 MOV RO, SGDDAT : SAVE 16 BIT ADRS 

2375 022356 010137 002224 MOV R1.G1716 *SAVE ADRS BITS 17 & 16 

2376 022362 006201 ASR R1 [NOW SET UP RELOCATION REG 

2377 022364 103003 BCC 5$ ‘BR IF ADRS BIT 16 IS NOT SET 

2378 022366 052777 002000 157660 BIS #2000, aRLO :SET UP RELOCATION REG BIT 10 

2379 022374 006201 5$: ASR R1 :LOOK AT ADRS BIT 17 

2380 022376 103003 BCC 6$ ‘BR IF ADRS BIT 17 IS NOT SET 

2381 022400 052777 004000 157646 BIS #4000,aRLO ;SET UP RELOCATION REG BIT 11 

2382 022406 012777 020040 157662 6$: MOV aoonebe @STKPT :SET TOP OF STACK 

2383 022414 013777 001124 157622 MOV SGDDAT, aDPC s START 

2384 022422 004537 024446 JSR R5,DELAY ‘GO STALL FOR STACKING 

2385 022426 000001 BITO *COUNT TO 1 

2386 022430 005277 157610 INC aDPC RESUME 

2387 022434 004537 024446 JSR R5 DELAY :GO STALL FOR POPPING 

2388 022440 000001 BITO =COUNT TO 1 

2389 022442 005277 157576 INC aDPC RESUME 

2390 022446 012737 022406 001110 MOV #6$,SLPERR :SET UP SCOPE LOOP ADRS 

2391 022454 005001 CLR R1 ; CLR HI ORDER BITS ke ( we 

2392 022456 017700 157566 MOV @XPOS ,RO ;GET ADRS BLK FROM GRAPHPLOT INC BITS 
2393 022462 042700 001777 BIC #1777,R0 ;SAVE ONLY ne BLK INFORMATION READ 
2394 022466 004737 024610 JSR PC ,DPCON1 ‘GO CONVERT BLK ADRS TO A 18 BIT ADRS 
2395 022472 010037 001126 MOV RO. $BDDAT *SAVE 16 BIT ADRS READ 

2396 022476 010137 002226 MOV 1.81716 [SAVE ADRS BIT 17 & 16 

2397 022502 023737 001124 001126 CMP SGDDAT , $BDDAT ;I1S THE 16 BIT ADRS CORRECT? 

2398 022510 001004 BNE ? *BR IF NOT 

2399 022512 023737 002224 002226 CMP G1716,B1716 SADRS BIT 17 & 16 CORRECT? 

2400 022520 001401 BEQ 8$ BR IF 

2401 022522 104070 7$: ERROR 70 reed os 4 TO EXECUTE INSTRS AT ADRS INDICATED 
2402 022524 062777 000200 157502 8$: ADD #200,@KIPAR2 :SET NEXT LK 

2403 022532 027737 157476 002222 CMP @k JPAR2,KTMAX “HAS eta Cope BEEN EXECUTED IN ALL 4K AVAIL BLKS? 
2404 022540 101676 BLOS 4$ ‘BR IF NOT 
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022542 


022546 


022664 
022670 
022672 
022674 
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005077 


012701 


157506 


000040 
000110 


175200 


170042 
146026 
161730 
001252 
160000 
023202 
000340 
023432 


001166 
001206 


000004 
000006 


CLR 
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TEST THAT THE VS60 CAN OPERATE ABOVE 28K 


@RLO 


SEQ 0068 
; INSURE RELOCATE REG 0 BEFORE ADVANCING 


MEERA RARER EEE KEKE REE 


SILO TEST 1 = ALL STATUS READABLE FROM BUS DIRECTLY 


RO SAeAAAASAAAAASARALALLAASASALESLALELAAR AREAS ESAS SARS R EARS R SARS SSS 


**TEST 110 


151110: SCOPE 


#40,$TIMES 
#110, $TESIN 
#BU 


#112035, (RO) + 
(RO)+ 


(RO) + 
#164000, (RO)+ 


#164270, (RO) + 
#164674, (RO) + 
#170042, (RO) + 
#175400, (RO) + 
#146426, (RO) + 
(RO) + 

(RO) + 


#164000, (RO) + 
AEE ek ae ot 


#175200, (RO) + 
#113035, (RO)+ 
(RO) + 
(RO) + 
#164000, (RO) + 
#150707, (RO)+ 


#146026, (RO)+ 
mere 


(ROQ)+ 
#161730, (RO)+ 
$VECT1,RO 


AMBSTART ,R1 


4+ # 40 ITERATIONS 
T TEST NUMBER IN APT MAIL BOX 
GET ADRS WHERE INSTRS GO 
[NAME OF 2525 
;ROTATE,CHAR SC=1,VEC 
SCONSO=INT,L.P. INTR EN. * - SW INTR EN 
*CONSI=INT.-L.P. INTR EN,-L.P. SW INTR EN 
; ITALICS,MENU 


COLOR=1 
: LONG VEC, INT=1,BLINK,LINE=1,MODE=2 
:Y=0 

NAME=1252 
a ROTATE CHAR SC=2,VEC SC=2 
=CONSO=-INT,L.P. INTR EN,-L.P. SW INTR EN 
“CONST=-INT.L.P. INTR EN.L.P. SW INTR EN 
:cITALICS _-MENU 


COLOR= 
a VEC, INT=2,-BLINK,LINE=2 ,MODE=11 


7¥=0 
:NOP 
NAME=3070 

ROTATE, CHAR SC=1,VEC SC=4 
:CONSO=INT.L.P. INTR EN,L.P. SW INTR EN 
:CONSI=INT,-L.P. INTR EN,-L.P. SW INTR EN 
fy AF »MENU 
‘48° VEC, INT=4,BLINK,LINE=1,MODE=2 

ew 


NAME=0707 
iMROTATE. CHAR SC=2,VEC SC=10 
:CONSO=-INT,L.P. INTR EN,-L.P. SW INTR EN 
:CONST=SINT. ‘LP. INTR EN,L.P. SW INTR EN 


LOR=2 
:~ ITALICS, -MENU 
; ABS VEC, INT=0,-BLINK,LINE=2,MODE=11 


7Y=0 
: IMP REL TO BUFFER START 


GET BASIC VECTOR ADRS 

: CLR PSW BITS 

SET UP _INTR RETURN ADRS 
>SET PRIORITY TO HIGHEST LEVEL ON INTR 
[R71 CONTAINS ADRS PTR OF DISPLAY STARTS 


ee ( tt 
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012702 


023344 


157140 
157132 
023064 


040000 
040000 
177776 


002266 
144000 
157072 


023416 


023344 
000002 
001164 
000004 
001164 


023444 
000012 


PART II] 


157204 
177776 


001110 


157144 
157126 


001122 
001124 
001126 


001122 
001126 


001126 


001164 


000002 - 


024646 


2$: 


3$: 
4$: 


5$: 


6$: 


7$: 
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SILO TEST 1 = ALL STATUS READABLE FROM BUS DIRECTLY 


#SILOR,R2 
ARCNT RS 
MBADR ,R4 
LN ae 


STMP 

#20040, aSTKPT 
#340 ,PSW 

(R1) ,aDPC 
(R3) ,RO 


aDPC 
#1$,$LPERR 
RO 


2$ 
#40000, @STKPT 
#40000,a@CONS 
PSW 


(SP), (SP) 
(SP) , (SP) 
(SP), (SP) 
(SP), (SP) 
CONS , $BDADR 
#144000, $GDDAT 
estan 


7$ 

(SP) +, (SP)+ 
@0(R4) , SBDADR 
@S$BDADR , SBDDAT 
(R2) , SGDDAT 
SGDDAT , SBDDAT 


PC,RSTVEC 
TST111 





SEQ 0069 


eRe CONTAINS ADRS ate OF yt ety SILO RESULTS 
;R3 CONTAINS ADRS PTR OF # OF RESUMES FOR EA SILO LEVEL 
:R4 CONTAINS ADRS PTR WHERE REG DATA IS EXPECTED 
:R5 WILL UPDATE R2 ON NEXT BUF START ADRS 
[$TMPO CONTAINS SILO LEVEL UNDER TEST 
TEST DONE WITH MAINT SW 2 
—— LEVEL AT TOP 


TAR 
:SET UP RESUME CNTR 
RE SUME 


;SET UP SCOPE LOOP ADRS 
: COUNT RESUME 
F CNT ? ZERO 


- FLAG 


:L.P. FLAG INTR oe hat USING MAINT MODE 3 
;NEXT TEST ON INTR FAILURE 

FIX STACK SINCE NO. RfI ON INTR 

[GET BUS ADRS WHERE DATA IS 

:GET DATA FROM REG 

;GET EXPECTED DATA FROM SILOR TABLE 

: CORRECT? 


;BR IF SO 

;SILO FAILURE AT LEVEL INDICATED 

[BUMP ADRS PTR OF EXPECTED SILO RESULTS 

;BUMP ADRS PTR OF REG ADRS WHERE DATA IS READ 
‘ORF 3 


RESET REG ADRS P 

zAT END OF RESULT TABLE? 

7BR IF NOT 

RESET ADRS PTR OF tg. RESULTS 

:POINT TO NEXT RESUME CNT FOR NEXT SILO LEVEL 

= ADVANCE TO NEXT SILO LEVEL 

4 LEVELS TESTED AT THIS STARTING ADRS? 
IF NOT = REPEAT TEST CHECKING NEXT SILO LEVEL 

TRESET SILO LEVEL FOR yt has WITH DIFF DATA 

;RESET RESUME CNT ADRS PTR 

NEW RESULT ADRS FOR NEXT BUF START ADRS 

[UPDATE RESULT PTR 

;BUMP BUFFER STARTING ADRS PTR - THIS CAUSES 

;DIFFERENT DATA PATTERNS THRU SILO 

ZALL _— ADRS STARTS BEEN DONE? 


eng RESTORE VECTOR WITH HALT 
R VS60 BEFORE ADVANCING 
540 NEXT TEST 


F 6 
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C2VSCC.P11. - 29=MAY=79 11:36 1110 SILO TEST 1 = ALL STATUS READABLE FROM BUS DIRECTLY SEQ 0070 
2512 023344 032416 SILOR: BUFFER+22 ;DPC RETURN ADRS 
2513 023346 010631 10631 sMODE=2, INT= 1,L.P. FLAG, Late ft BLINK,LINE=1 
2514 023350 002501 2501 sROTATE, CHAR $¢= 1 Pew VCT CS= 
2515 023352 147004 147004 S CONSO=INT, Lets FLG, L.P. INTR i, L.P. SW EN,CONS1T=INT,COLOR=1 
2516 023354 002525 2525. : NAME=2525 
2517 023356 032442 BUFFER+46 sDPC RETURN ADRS 
2518 023360 045202 45202  ;MODE=11.INT=2,L.P. FLG,LINE=2 
2519 023362 001002 1002. : CHAR SC=2,VCT SC= 
2520 023364 044070 44070 * CONSO= L.P.FLG,L.P. INTR EN,CONS1=L.P. FLG INTR EN,L.P. SW EN,COLOR=2 
2521 023366 001252 125 “NAME=1252 
2522 023370 032466 BUFFER+72 >DPC RETURN ADRS 
2523 023372 012231 12231 ;MODE=2, INT= 3,L.P. FLG, ITALICS, BLINK,LINE=1 
2524 023374 002504 2504 sROTATE, CHAR $C= eT we VEC SC= 4 
2525 023376 147004 147004 * CONSO=INT, Les FLG, L.P. INTR EN,L.P. SW EN,CONS1=INT,COLOR=1 
2526 023400 003070 3070 :NAME=3070 
2527 023402 032512 BUFFER+116 :DPC RETURN ADRS 
2528 023404 044202 44202  ;MODE=11.INT=0,L.P. FLG-LINE=2 
2529 023406 001010 1010 * CHAR SC=2,VCT SC=4 
2530 023410 044070 44070 :CONSO=L.P. FLG,L.P. INTR EN,CONS1=L.P. FLG FLG EN,L.P. SE EN,COLOR=2 
2531 023412 000707 707 NAME =707 
2532 023414 000000 0 : TERMINATOR 
2534 023416 002244 BADR: DPC ;THIS TABLE CONTAINS REGS ADRS WHERE DATA IS EXPECTED - 
2535 023420 002246 SREGO 
2 023422 002256 SREG1 
2537 023424 0022 
2538 023426 002270 DNAME 
2539 023430 000000 
2541 023432 032374 BSTART: BUFFER ;THIS TABLE CONTAINS DIFFERENT STARTING ADRS FOR TESTING 
2542 EA CH SILO LEVEL 
2543 023434 032420 BUFFER+24 
2544 023436 032444 BUF FER+50 
2545 023440 032470 BUF FER+74 
2546 023442 000000 0 
2548 023444 000017 RCNT: 17 THIS TABLE CONTROLS THE AMOUNT OF RESUMES NEEDED TO 
2549 sCYCLE THRU ALL FOUR LEVELS OF SILO 
2550 023446 000031 31 
2551 023450 000043 43 
2552 023452 000055 55 
2595 023454 000000 0 
2555 TDI IIIIOIIIIDIOIIIOIOIOIIIIIUIOIOIUIIIOIDIIIIIOIOIOIOIUIOIOIOIOIOIOIOIOIUIOOIIIOIOIUIOIOI In 
(3) seTEST 111 SILO TEST 2 = ALL STATUS VERIFIED ON STACK 
(3) SD KERR EKER EEE ERE EERE EERE ERE REE ERE REE REE EERE 
(2) 023456 000004 1$7111: SCOPE 
(1) 023460 012737 000040 001166 MOV #40, $TIMES :2D0 40 ITERATIONS 
(2) 023466 012737 000111 001206 MOV #111, $TESTN SET TEST NUMBER IN APT MAIL BOX 
2556 023474 012700 032374 MOV ABUFFER,RO GET ADRS WHERE INSTR'S GO 
2557 023500 012720 171600 MOV #171600. (RO)+  :STOP INTR EN,-L.P. HIT EN 
2558 023504 012720 176357 MOV #176357, (RO)+ QUE CNTRL, -EDGE FLG INTR EN,QUE,CHAR STRING ESC 
2559 023510 012720 164770 MOV #164770.(RO)+ :CONSI=INT.L.P. INTR EN 
2560 023514 012720 102200 MOV #102200, (RO)+  :CHAR INSTR INTs 1 
2561 023520 012720 007015 MOV #7015, (RO)+ ‘SHIFT OUT 4 
2562 023524 012720 164000 MOV #164000, (RO) + “NOP OR JSR REL of WHEN CHECKING SILO 



















































023530 
0 


013777 





000 
156272 


156264 
024446 


040000 
000400 
177776 


002266 
107440 
156224 


156166 
163000 
024246 


000004 
000006 
001110 


156336 
177776 


156276 
156260 


001122 
001124 
061126 


024246 
000760 
156150 


2s: 


3$: 
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#164900, (RO) + 
#171300, (RO)+ 
#176272, (RO)+ 
#164770, (RO) + 
cyte td (RO) + 


#6417, (RO) + 
#164000, (RO) + 
000; (RO) + 


#164 
#171600, (RO) + 
#176357, (RO)+ 


#164000, (RO) + 
#171300, (RO)+ 
#176272, (RO)+ 
#164770, (RO)+ 
#103000, (RO) + 
#6417, (RO)+ 

#164000, (RO) + 
#161744, (RO)+ 


#1$,$LPERR 
#BSTRT.R1 
#SILORI ,R2 
pla A R3 


MPO 
720020, @STKPT 
#340 ,PSw 
(R1) ,aDPC 
(R3).R 0 
RS DELAY 
RO 


2$ 

#40000, aSTKPT 
#400, aCONS 
PSwW 


(SP), (SP) 
(SP), (SP) 
(SP), (SP) 
(SP), (SP) 
CONS , SBDADR 


#101440, $GDDAT 


GOONS AEEOAY 


7$ 
(SP)+,(SP)+ 
aDPC ,DPCSAV 


#163000, BDPCSAV 


DPCSAV, aPPC 


6 
17-SEP-79" 08:48 PAGE 12-4) 
O TEST 2 = ALL STATUS VERIFIED ON STACK 





SEG. 0071 


;NOP 

:+STOP INTR EN,L.P. HIT EN 

“QUE CNTRL EDGE 4S INTR EN,-QUE,-CHAR STRING ESC 
:CONST=INT,L.P. INTR EN 


R,INT= 
SHIFT OUT OFF & ‘CR' 
;NOP OR JSR REL +1 WHEN CHECKING SILO 


; NOP 

STOP _INTR EN,-L.P. HIT EN 

SQUE CNTRL,-EDGE FLG INTR EN,QUE,CHAR STRING ESC 
:CONS1=INT,L.P. INTR EN 

: CHAR INSTR, INT= 3 

:SHIFT OUT & CR" 

:NOP OR JSR REL +1 WHEN CHECKING SILO 


:=STOP INTR EN,L.P. HIT EN 
~QUE CNTRL, EDGE 4 ie EN,-QUE,-CHAR STRING ESC 


;NOP OR JSR REL +1 WHEN CHECKING SILO 
:JMP REL TO BUFFER START 

;GET BASIC VECTOR ADRS 

: CLR PSW BITS 

7SET UP_INTR RETURN ADRS 
SHIGHEST PRIORITY ON INTR 

;SET UP SCOPE LOOP ADRS 

3R1 CONTAINS ADRS PTR OF DISPLAY STARTS 

3R2 CONTAINS ADRS PTR OF EXPECTED SILO DATA 

3R3 CONTAINS ADRS PTR OF # OF RESUMES FOR EA SILO LEVEL 
;$TMPO CONTAINS SILO LEVEL UNDER TEST 

;SET MAINT SW 2 & TOP OF STACK 

3 WANT es AT TOP 


i STAR 
:SET lp RESUME CNTR 
; RESUME 


STALL 
;COUNT TO 4 
= COUNT RE SUME 
IF oe nor TO ZERO 


ae ( wt 


; N 
:LET CPU GRANT REQ 


>SET UP ADRS REG 22 

SEXPECT L.P. FLAG 01, INTS Ls P. EN 

:READ REG 22 

iL.P. FLAG 01 oe TO INTR USING MAINT MODE 3 
:NEXT TEST ON INTR FAILURE 

FIX STACK SINCE NO RTI 

:GET DPC ADRS 

;SET UP JSR REL AT SILO RESTORED DPC 

; SHOULD DO A JSR NOW‘RESTORED SILO DATA TO STACK) 


CZVSC=C__ VS60 Ss Mapgd Had TEST PART III ro 30G6(1063) 
CZ2VSCC.P11 29-MAY~-79 11:36 1111 SILO TEST 


H 6 
17=SEP=79 08:48 PAGE 12-42 
2 ~ ALL STATUS VERIFIED ON STACK 


SEQ 0072 


2619 024074 004537 024446 JSR R5,DELAY ;STALL FOR STACKING 
2620 024100 1 BITO ;COUNT TO 1 
2621 024102 012777 164000 000136 MOV #164000 , aDPCSAV ; RESTORE NOP INSTR FOR NEX; STARTS 
2622 024110 013737 002272 001122 MOV STKVAL,$BDADR  :SET UP REG ADRS 2 
2623 024116 052777 0037 156152 BIS #37 ,ASTKPT “DATA IS IN BYTE 3 OF STACK LEVEL 1 
2624 024124 017737 156142 001126 MOV @STKVAL , SBDDAT TREAD SAVE STATUS FROM STACK 
2625 024132 011237 001124 MOV (R2) ,SGDDAT GET EXPECTED STATUS 
2626 024136 023737 001124 001126 CMP $GDDAT, SBDDAT ; CORRECT? 
2627 024144 001401 BEQ 4$ ‘BR IF SO 
2628 024146 10400 ERROR 2 :SILO pal AT LEVEL INDICATED - DATA VERIFIED FROM STK 
2629 024150 062702 000002 4$: ADD #2,R2 [BUMP ADRS PTR OF EXPECTED SILO RESULTS 
2630 024154 005712 TST (Re) ;AT END OR RESULT TABLE? 
2631 024156 1002 BNE 5$ :BR IF NOT 
2632 024160 012702 024250 MOV #SILOR1,R2 ;RESET ADRS PTR OF EXPECTED RESULTS 
2633 024164 2703 000002 5$: ADD #2,R3 ;POINT TO NEXT RESUME CNT FOR NEXT SILO LEVEL 
2634 024170 005237 001164 INC $STMPO sADVANCE TO NEXT SILO LEVEL 
2635 024174 022737 000004 001164 CMP #4 ,$TMPO sALL 4 LEVELS TESTED AT THIS STARTING ADRS? 
2636 024202 001253 BNE ;BR IF NOT - REPEAT TEST CHECKING NEXT SILO LEVEL 
2637 024204 005037 001164 CLR $TMPO ;RESET SILO LEVEL FOR yf Ah WITH DIFF DAT 
2638 024210 012703 024270 MOV #RCNT1,R3 TRESET RESUME CNT ADRS P 
2639 024214 2702 000002 ADD #2,R2 ;NEW RESULT ADRS FOR NEXT Nour STARTING ADRS 
2640 024220 005712 TST (R2) 7 END OF TABLE? 
2641 024222 1002 BNE 6$ IF NOT 
2642 024224 012702 024250 MOV #SILOR1,R2 “RESET RESULT ADRS 
2643 024230 062701 000002 6$: ADD #2,R1 ;BUMP BUFFER STARTING ADRS PTR - THIS 
2644 : CAUSES DIFFERNT DATA PATTERNS THRU S!LO 
2645 024234 005711 TST (R1) ALL 4 BUFFER ADRS STARTS BEEN DONE? 
2646 024236 001235 BNE 1$ “BR IF NOT 
2647 024240 004737 024646 7$: JSR PC,RSTVEC ;GO RESTORE VECTOR WITH HALT 
-— 024244 000416 BR TST112 +360 TO NEXT TEST 
cn 024246 000000 DPCSAV: 0 : THIS LOCATION SAVES THE DPC THAT WAS RESTORED FROM THE SILO 
2652 024250 053465 SILOR1: 53465 sSHIFT OUT,CHAR STRING ESC,-EDGE FLG INTR EN,QUE,QUE CNTRL 
2653 3L.P. INTR EN 01, INT 00801,-L.P. HIT DIS,STOP INTR EN 
2654 024252 005066 5066 :=SHIFT OUT, =CHAR STRING ESC, << FLG INTR EN, po A -QUE CNTRL, 
2655 sL.P. INTR EN 01, INT 00801,L.P. HIT DIS,-STOP INTR EN 
so28 024254 000000 0 ; TERMINATOR 
2658 024256 032374 BSTRT: BUFFER’ ;THIS TABLE CONTAINS DIFFERENT STARTING ADRS FOR TESTING 
2659 sEACH SILO LEVEL 
2660 024260 032412 BUFFER+16 
2661 024262 032430 BUF FER+34 
2662 024264 032446 BUF FER+52 
eon 024266 000000 0 
2665 024270 000011 RCNT1: 11 ;THIS TABLE CONTROLS THE AMOUNT OF RESUMES NEEDED 10 
2666 024272 000020 20 sCYCLE THRU ALL FOUR LEVELS OF SILO 
2667 024274 000027 27 
2668 024276 000036 36 
$06" 024300 00000 0 
2671 DL DOOUIOIOIIDIOIIINIDIIIOIOIUIIOIOIIDIOINIIOIIOIUIOIIUIDIDIIDIOIUIIOUISIUIDIUIUOIUINIOIIIUI Ont ittnt 
(3) *TEST 112 TEST FOR HALT AT END OF DIAGNOSTIC (SW12 SET) 
(4) LLU ARERR ERE E REE RRR ER REE 
(2) 024302 000004 TST112: SCOPE 
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(2) 024304 012737 000112 001206 
2672 024312 032777 010000 154620 
2673 024320 001401 
2674 024322 000000 


TEST 


MOV 
BIT 
BEQ 
HALT 


#112,$TESTN 
#B1T12,aSWR 
$EOP 


I 
17=SEP=79 08:48 PAGE 12-43 
FOR HALT AT END OF DIAGNOSTIC (SWl2 SET) 


+4 SET TEST NUMBER IN APT MAIL BOX 
;1S SR12 SET? 


BR IF NOT 
; COMPLETED PASS = SW12 SAYS HALT 


SEQ 0073 


CZVSC=C VS60 INSTRUCTION TEST PART III MACY11 30G(1063) 17+SEP=-79 08:48 PAGE 12-44 


CZvSCC.P11 29=MAY=79 11:36 END OF PASS ROUTINE SEQ 0074 
wits -SBTTL END OF PASS ROUTINE 
(2) MAASARASASARASLASALASASLARRAA RAE RRAR ESA RAR ARERR RR RAR SRR RRR RR ARR ESSE 
(1) "INCREMENT THE PASS NUMBER ($PASS) 
(1) >*TYPE ‘END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER) 
(1) ;*IF THERES A MONITOR GO TO IT 
a :*IF THERE ISN'T JUMP TO RSTART 
( 
(1) 024324 $EOP: 
(1) 024324 000004 SCOPE 
(1) 024326 005037 001102 CLR $STSTNM 5 oe THE TEST NUMBER 
(1) 024332 005037 001166 CLR $TIMES ZERO THE NUMBER OF ITERATIONS 
(1) 024336 005237 001210 INC $PASS ; INCREMENT THE PASS NUMBER 
(1) 024342 042737 100000 001210 BIC #100000, $PASS :30N. T ALLOW A NEG. NUMBER 
(1) 024350 005327 DEC (PC)+ LOOP? 
(1) 024352 000001 SEOPCT: .WwORD 1 
(1) 024354 003022 BGT $DOAGN sc VES 
(1) 024356 012737 MOV (PC)+,a(PC)+ ; RESTORE COUNTER 
(1) 024360 000001 $SENDCT: .WORD 1 
(1) 024362 024352 SEOPCT 
(1) 024364 104401 024431 TYPE , SENDMG 77 TYPE ‘END PASS #°' 
(2) 024370 013746 001210 MOV $PASS ,-(SP) 3:SAVE SPASS FOR TYPEOUT 
(2) 024374 104405 TYPDS 4h TYPE=-DECIMAL ASCII WITH SIGN 
(1) 024376 104401 024426 TYPE . SENULL TYPE A NULL CHARACTER 
(1) 024402 013700 000042 $GET42: MOV a442,R0 :3GET MONITOR ADDRESS 
(1) 024406 001405 BEQ $DOAGN ; BRANCH IF NO MONITOR 
(1) 024410 000005 RESET ;zCLEAR THE WORLD 
(1) 024412 004710 SENDAD: JSR FC, (RO) ::GO TO MONITOR 
(1) 024414 000240 NOP ::SAVE ROOM 
(1) 024416 000240 NOP te 
(1) 024420 000240 NOP 33ACT11 
(1) 024422 $DOAGN: 
(1) 024422 000137 JMP a(PC)+ 3 sRETURN 
(1) 024424 003244 $RTNAD: .WORD RSTART 
(1) 024426 377 377 000 $ENULL: .BYTE -1,~1,0 zsNULL CHARACTER STRING. 
(1) 024431 015 042412 042116 $ENDMG: .ASCIZ <15><12>/END PASS’ #/ 
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024446 


024460 


024462 


024510 


024512 


02: 
024572 
024574 


024576 


024626 
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012537 
37 


006300 
000207 


002206 
002206 


0000 
155504 
024446 


032400 
020000 
155456 
024446 


000002 


155470 
155514 


END OF PASS ROUTINE SEQ 0075 


FERRARA RAAEAAAERERREE AREER ERAEREA RARER EH 


THIS ROUTINE WILL STALL FOR THE NO OF COUNTS IN THE ADRS OF R5 


PETTITTE TERETE TILL TLL LT LILLE TCL LLL 


DELAY: MOV (R5)+,DLYCNT  ;GET DELAY COUNT 


1$: DEC DLYCNT ; START COUNTING 
BNE 1$ ;BR_ IF MORE COUNTS 
RTS R5 EXIT DELAY ROUTINE 


SERRE RR EERE ERE EERE ERE ERE REE EERE REE EERE EERE 


THIS ROUTINE SETS UP JSR, POP & TEST INSTR FOR POP-RESTORE TESTS 


J LEAR REAR AER REE EEE EERE EERE KEREEEREREREEERREREEEEEER EERE 


POPSET: MOV #20040 @STKPT :SET TOP OF STK 
MOV #163000, BUFFER+2. ;SET UP JSR REL INSTR 
MOV #166000 .BUFFER+6 ‘SET UP POP=RESTORE INSTR 
MOV (RA) + .BUFFER+4 :SET UP INSTRUCTION UNDER TEST 


RRR EAE EERE EKER EEE EKEEEK 
;THIS ROUTINE CONTROLS JSR, POP & TEST INSTR SEQUENCE FOR POP=RESTORE TESTS 
recap yma nope aap gg a one 
pO: MOV #20040,aSTKPT  ;SET TOP OF STK 
MOV WOUFFERADPC. START -~SET BITS UNDER TEST 
BIS #20000, @STKPT  ;FUMBLE 


INC zsADVANCE TO JSR INSTR 

JSR RS. DELAY STALL FOR STACKING 

BIT2 COUNT TO 4 

MOV WBUFFER+4,@DPC :START -RESET BITS UNDER TEST 
BIS #20000,aSTKPT ;FUMBLE 

INC aDPC ADVANCE TO POP INSTR 

JSR RS ,DELAY :STALL FOR RESTORING 

BIT2 ;COUNT TO 4 

RTS PC ;RETURN 


J LER ARERR EEE REE EEREEEREKREEEERE EERE ERE EKER 


;THIS ROUTINE CONVERTS A KT11 PAGE ADRS TO A 18 BIT ADRS 


WEARERS ALALLSLALASALSLAASLERESSR RE ER SELES ASA REARS RAR RRR SRR RSD SSS 


DPCONV: CLR R1 ;CLR HI ORDER ADRS 

ASL RO ZSTART SHIFTING LEFT 

ASL RO ; 

ASL RO e 

ASL RO : 
DPCON1: BPL 1$ ;BR IF ADRS BIT 17 IS CLR 

MOV #2,R1 ;SET ADRS BIT 17 INDICATION IN BIT 1 = R1 
1$: ASL RO ;LOOK AT ADRS BIT 16 

BPL 2$ ;BR IF ADRS BIT 16 IS CLR 

INC R1 :SET ADRS BIT 16 at bod IN BIT 0 = R1 
2$: ASL RO :COMPLETE LEFT JUSTIFICAT 

RTS PC RETURN 


_ 
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001400 
027511 


000340 
000004 
001252 
160000 


000002 


176000 
147777 


001126 


177572 


177776 


001126 


END OF PASS ROUTINE 


DIOR IEISISISISIIIIOISISISISISISISIDISIIOIOI IIIS IIS III TST TT TTT TOTTI OE 


THIS CODE REPORTS ANY KT11 ERROR AND HALTS 


WeRASARGASAALALARAASASALAAAALALALASESAR ALARA RAR AR ASSRSR ARAL SESS S| 


KTSER: BIC #1400,@4KTSRO DISABLE KT11 


TYPE »MSG2 3GO REPORT KT11 THAT A ERROR TRAP OCCURRED 
1$: HAL T 3KT11 ERROR TRAP = RUN KT11 DIAG OR 
BR 1$ RESTART 


ICR IORI IUCR IORI OT SAID IIA IA ISIS ISSAISISIISISSSAS ASA SASSASASAAA 
THIS CODE RESETS ALL VS60 VECTORS WITH HALTS 
DUIS GG IGS SIISISISIIEISIISIIIOISISIISIIIISIIIIIDIOISIOIIIOIIOOIIOIOI III III IIE 
RSTVEC: MOV #340 ,PSW ;RESET PRIORITY TO HIGHEST LEVEL 
MOV #4 ,R1 ;SET UP VECTOR LOCATION COUNT 
MOV $VECT1,RO :GET 1ST VS60 VECTOR ADRS 
BIC #160000 ,RO ; CLR PSW BITS we ( we 
1$: MOV RO, (RO) ;SE 


ADD #2,(RO)+ sPOINT IT TO HALT 

CLR (RO)+ SET UP_HALT 

DEC R1 [COUNT THIS ate RESTORE 
BNE 1$ BR IF MORE TO RESTORE 

RTS PC ;RETURN IF ALL DONE 


DIOR TOUR IOI IOI TOR AAI IIIA NAIA SISIISISISI ISS ISI SIA ISSIIA SIA ISAISASISASAS 


3; THIS ROUTINE MAKES UP A 12 BIT TANGENT FROM THE X OR Y POS 
REGS AND THE X OR Y DYNAMIC OFFSET REGS (HI ORDER 2 BITS) AND 


;LEAVES THE RESULT IN $8DDAT 
DDI OSI IOI IOISISISIOISIOIOIIIOIIOIOIOIOIOIOIOIOIOIOIIOI IOI IOI OI IIIT TST TI TT TOT TO ST I ITI IE 
TANCON: BIC #176000,$BDDAT ;SAVE LOW ORDER BITS ONLY 

BIC #147777 ,R5 ;ONLY WANT BITS 10 & 11 

ASR R5 ;ROTATE 2 RIGHT 


ASR R5 : 
ADD R5,$BDDAT ;MAKE UP 12 BIT TANGENT 
RTS PC RETURN 


SEQ 0076 
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0 


025110 
025112 


025114 
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012537 


1:36 


000001 
000001 


000400 
010000 
007777 


025114 


PART II] 


001124 


001124 
001124 
025042 


001124 
025042 
001124 
001124 
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END OF PASS ROUTINE 


DISEASES IOISIOISIIISISIEIOIOIIITIIIOIIIOIOIOIDIOI IIIT TOTTI TTT AISA IT 
; THIS ROUTINE eg THE TANGENT IN & GDDAT FOR EVERY INCREASE 
> IN VECTOR OF X OR Y 


RRR EREEREKEKEEEEREER EKER 


CALTAN: BNE 1$ 3;BR AND SET UP TANGENT IF VECTOR NON-ZERO 
MOV #400 ,R3 [R3 COUNTS EVERY 256+4 ADDS TO TANGENT 
MOV #1 ,$GDDAT 7 TANGENT WILL BE 1 WHEN VECTOR LENGTH 0 
CLR TANGNT ; TANGENT HOLDING LOC 
BR 3$ ;RETURN WITH ZERO TANGENT 

1$: MOV TANGNT , $GDDAT :GET LAST VALUE 
ADD #5 ,SGDDAT ;ADD 4 AND 1 FOR FRACTIONAL ROUNDING IN HARDWARE 
ADD #4, TANGNT TADD 4 ON EVERY COUNT OF VECTOR LENGTH 
DEC R3 [ROUND UP EVERY 11.25 DEGREES 
BNE 2$ ;BR IF NOT RE 
ADD #1 ,$GDDAT ;ROUND UP EVERY 256 
ADD #1, TANGNT : SAME 
MOV #400 ,R3 ;RESET 256 

2s: aH #10000, $GDDAT ‘BR IF TANGENT F OR GREATER THAN 12 BITS 
MOV #7777 ,$GDDAT 7CAN'T GET GREATER THAN 7777 

3$: RTS PC [RETURN WITH TANGENT IN $GDDAT 

TANGNT: 0 ;LOC MAINTAINS TANGENT MINUS 1 


SRI II OIC IIORIIOOIIOIORTORIRAIISAI AA IAIAISIISISSIASIISASI ISAS SASA SAAS SA SACSAIAM 
THIS ROUTINE STARTS THE DISPLAY WITH MAINT. SW 2, THEN SETS 
:MAINT. SW 3, AND THEN ISSUES A # OF RESUMES SPECIFIED 
:BY RS AT WHICH TIME IT WILL EXIT 


LIRIK IRR RRR RRR EEE EERE REE EER EERE ERE ERE 


EXECUTE: 

MOV (R5)+,CNTR SET UP THE RESUME COUNTER 
MOV #20040,aSTKPT ;SET MAINT SW 2 AND TOP OF STACK 
MOV BUFFER, aDPC ZSTART DISPLAY 


1$: BIS #40000,aSTKPT SET MAINT Sw 3 
BIS #40000.aSTKPT  :AGAIN 
INC aDPC ;RESUME 
DEC CNTR [COUNT RESUME 
BNE 1$ 3;BR IF MORE RESUMES TO FOLLOW 
RTS R5 sEXIT 
CNTR: 0O CNTR USED ABOVE 


SEQ 0077 
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2806 -SBTTL SCOPE HANDLER ROUTINE 


SEQ 0078 


1) 

ta} MeSBRBASAAA£A@£LA£A£A2 £22 SAAR SESALLALLLES ELAS ESSERE ARERR SRA RRR SRR RR RRR AAAS SD 

(1) *STHIS ROUT INE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
(1) ‘AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
(1) ‘*AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 

(1) ‘*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

(1) + eSW14= LOOP ON TEST 

(1) + *SW11=1 INHIBIT ITERATIONS 

(1) : *SWO9=1 LOOP ON ERROR 

(1) :*SWO8=1 LOOP ON TEST IN SWR<7:0> 

(1) *CALL 

tH ;* SCOPE ::SCOPE=IOT 

(1) 025116 $SCOPE : 

(1) 025116 032777 040000 154014 18: BIT #B1T14,aSWR ;:LOOP ON PRESENT TEST? 

(1) 025124 001114 BNE $OVER “YES IF SW14=1 

(1) :H#HHAASTART OF CODE FOR THE XOR TEsTEnseess 

(1) 025126 000416 $XTSTR: BR 6$ 31F RUNNING ON THE '‘XOR'' TESTER CHANGE 
(1) +: THIS INSTRUCTION TO A ‘ NOP=240) 
(1) 025130 013746 000004 MOV @#ERRVEC,-(SP) ::SAVE THE CONTENTS OF THE ERRON VECTOR 
(1) 025134 012737 025154 000004 MOV #5$,QMERRVEC ;;SET FOR TIMEOUT 

(1) 025142 005737 177060 TST a4#177060 :: TIME OUT ON XOR? 

(1) 025146 012637 000004 MOV (SP) +, AHERRVEC ; ;RESTORE THE ERROR VECTOR 

(1) 025152 63 BR SVLAD :GO TO THE NEXT TEST 

(1) 025154 022626 5$: CMP (SP) +, (SP)+ 73 CLEAR THE STACK AFTER A TIME OUT 
(1) 025156 012637 000004 MOV (SP)+,@MERRVEC ;:RESTORE THE ERROR VECTOR 

(1) 025162 23 BR 7$ OOP ON THE PRESENT TEST 

(1) 025164 6$::AAHAHEND OF CODE FOR THE XOR’ TESTERMAMMH 

(1) 025164 032777 000400 153746 BIT #81708, ::LOOP ON SPEC. TEST? 

(1) 025172 001404 BEQ 2 33 NO 

(1) 025174 127737 153740 001102 CMPB = @SWR, STSTNM [:0N THE RIGHT TEST? SWR<7:0> 

(1) 025202 001465 BEQ SOVER ::BR IF YES 

(1) 025204 105737 001103 2$: TSTB  $ERFLG *ZHAS AN ERROR OCCURRED? 

(1) 025210 001421 BEQ 3$ *:BR IF NO 

(1) 025212 123737 001115 001103 CMPB —- SERMAX,SERFLG =; ;MAX. ERRORS FOR THIS TEST OCCURRED? 
(1) 025220 101015 BHI § ‘BR IF NO 

(1) 025222 032777 001000 153710° BIT #B81T09, aSWR ; LOOP ON ERROR? 

(1) 025230 001404 BEQ 4$ [BR IF NO 

(1) 025232 013737 001110 001106 7$ MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 

(1) 025240 46 BR SOVER 

(1) 025242 105037 001103 4$ CLRB = S$ERFLG 72ZERO THE ERROR FLAG 

(1) 025246 005037 001166 CLR $TIMES *:CLEAR THE NUMBER OF ITERATIONS TO MAKE 
(1) 025252 1 BR 1$ + ESCAPE TO THE NEXT TEST 

(1) 025254 032777 004000 153656 3$ BIT #B1T11,aSWR :EINMIBIT ITERATIONS? 

(1) 025262 001011 BNE 1$ YES 

(1) 025264 0u5737 001210 TST $PASS icIF first PASS OF PROGRAM 

(1) 025270 0014 BEQ 1$ INHIBIT ITERATIONS 

(1) 025272 005237 001104 INC $ICNT + INCREMENT ITERATION COUNT 

(1) 025276 023737 001166 001104 CMP STIMES,SICNT : | CHECK THE NUMBER OF I TERAT IONS MADE 
(1) 025 2024 BGE SOVER F MORE ITERA TION R EQUIRED 

(1) 025 012737 1 001104 1$ MOV #1,$ICNT : :REINITIAL 1ZE THE ITERATION COUNTER - 
(1) 025314 013737 025372 001166 MOV SMXCNT,STIMES T NUMBER OF ITERATIONS TO DO 

(1) 025322 105237 001102 $SVLAD: INCB $TSTNM SCOUNT TEST NUMBERS 

(1) 025326 113737 001102 001206 MOVB = $TSTNM, STESTN tISET TEST NUMBER IN APT MAILBOX 

(1) 025334 011637 001106 MOV (SP) ,$LPADR +:SAVE SCOPE LOOP ADDRESS 
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CZVSCC. 1:36 OPE HANDLER ROUTINE SEQ 0079 
(1) 025340 011637 001110 MOV (SP) ,SLPERR ;SAVE ERROR LOOP ADDRESS 
(1) 5344 005037 001170 CLR SESCAPE ;;CLEAR THE ESCAPE FROM ERROR ADDRESS 
(1) 025350 112737 1 001115 MOVB #1, SERMAX 7; ;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
(1) 025356 013777 001102 153556 S$OVER: MOV STSTNM,@DISPLAY ;;DISPLAY TEST NUMBER 
(1) 025364 013716 001106 MOV $LPADR, (SP) ;;FUDGE RETURN ADDRESS 
(1) 025370 000002 RTI 7 FIXES PS 
(1) 025372 003720 SMXCNT: 2000. 3 ;MAX. NUMBER OF ITERATIONS 
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000001 
000001 


000001 


025636 
000001 
000100 
000004 
000002 
001202 
001216 


001216 
001220 
000004 


025637 
025636 
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025€40 
025636 


025640 


001222 
001223 


000004 


001202 


025550 
000004 


001204 
000004 
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SEQ 0080 


-SBTTL APT COMMUNICATIONS ROUTINE 


MADAARAASAAAASAAAALASLSASLAAASARAAASA SARA RE SALAS SARS AAS SARS A RASS SSS 


$ATY1: MOVB  #1,SFFLG 
SATY3: MOVB  #1,$MFLG 
BR $ATYC 
SATY4: MOVB #1,$FFLG 
SATYC 
MOV RO,-(SP) 
MOV R1,-(SP) 
TSTB = SMFLG 
BEQ 5$ 
CMPB = WAPTENV, SENV 
BNE 3$ 
B16 WAPTSPOOL , SENVM 
MOV a4 (SP) ,RO 
ADD #2,4(SP) 
1$ TST $MSGTYPE 
BNE 1$ 
MOV RO, $MSGAD 
2$ TSTB = (RO) + 
BNE 2$ 
SUB $MSGAD ,RO 
ASR RO 
MOV RO, $MSGLGT 
MOV #4. SMSGTYPE 
BR 5$ 
3$ MOV a4 (SP) ,4$ 
ADD #2,4(SP) 
MOV 177776, -(SP) 
JSR PC, $TYPE 
4$: . WORD 0 
5$: 
10$: STB ~—s- SFFLG 
BEQ 12% 
TST SENV 
BEQ 12$ 
11$ TST $MSGTYPE 
BNE 11$ 
MOV a4 (SP) ,SFATAL 
ADD #2,4(SP) 
INC $MSGTYPE 
12$: CLRB —s SFFLG 
CLRB = $LFLG 
CLRB $MFLG 
MOV (SP)+,R1 
MOV (SP) +.RO 
RTS PC 
SMFLG: .BYTE 
$LFLG: .BYTE 0 
SFFLG: .BYTE 0 
“EVEN 
APTSIZE=200 
APTENV=001 


APT SPOOL =100 


3;TO REPORT FATAL ERROR 
3:TO TYPE A MESSAGE 


3:TO ONLY REPORT FATAL ERROR 


3=PUSH RO ON STACK 
;=PUSH R1_ON STACK 
EMT: TYPE A MESSAGE? 


NO 
; : OPERATING UNDER APT? 
: : : SHOULD SPOOL MESSAGES? 


;IF NOT: BR 
SIGET MESSAGE ADDR. 
; ;BUMP RETURN ADDR. 
:;SEE IF DONE W/ LAST XMISSION? 
:1F NOT: WAIT 
PUT ADDR IN MAILBOX 
7:FIND END OF MESSAGE 


;;SUB START OF MESSAGE 
::GET MESSAGE LNGTH IN WORDS 
3sPUT LENGTH IN MAILBOX 
7;TELL APT TO TAKE MSG. 


:zPUT MSG ADDR IN JSR LINKAGE 
“BUMP RETURN ADDRESS 

PUSH 199776 ON STACK 

*=CALL TYPE MACRO 


¢ ¢ SHOULD» REPORT FATAL ERROR? 
IF NOT: BR 
:S RUNNING UNDER APT? 


: FINISHED LAST MESSAGE? 
NOT: WAIT 
: GET ERROR # 
;BUMP RETURN ADDR. 

77 TELL APT TO ag | ERROR 
3;CLEAR MESSAGE FLAG 
Soop STACK INTO R1 

:POP STACK INTO RO 
7 ;RETURN 
yan FLAG 


G FLAG 
SIFATAL FLAG 


| 
f 
f 
f 
f 
f 
f 
/ 
r 
| 
f 
} 
| 
j 
} 
j 
4 
j 
j 
/ 
j 
j 
j 
/ 
j 
j 
j 
j 
/ 
j 
j 
j 
j 
j 
j 
j 
i 
4 
j 
j 
i 
j 
i 
j 
j 
j 
j 
j 
j 
j 
j 
j 
{ 
[ 
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000040 


113737 


122737 
001007 
113737 
004737 


013716 
022737 
001001 


000002 


001102 
001103 


001102 
002000 


001172 
001172 
001116 


000002 
153174 
020000 


026044 
001177 


090001 


001114 
025412 


153142 


001000 


001110 
001170 


001170 
024412 


153130 


000042 


MACY11 30G6(1063) 


.SBTTL ERROR HANDLER ROUTINE 


D 
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APT COMMUNICATIONS ROUTINE 


APTCSUP=040 


SEQ 0081 


MR ARAASAAZALALASALALSLALLALASL ALS SAA ASRS LARS S ARERR SARA R RRR RRR S SD OS 


:*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 


;*SAVE THE ERROR ITEM NUMBE 


;*AND GO TO SERRTYP ON ERROR 


R AND THE ADDRESS OF THE ERROR CALL 
;*THE SWITCH tidy PROVIDED BY THIS ROUTINE ARE: 


7 *SW15= LT ON 
3*SW13=1 INHIBIT ERROR TYPEOUTS 
:*SW10=1 BELL ON ERROR 
tag LOOP ON ERROR 
** 
se ERROR N ;zERROR=EMT AND N=ERROR ITEM NUMBER 
$SERROR 
MOVB $STSTNM,TSTNUM 
7$: INCB SERFLG +e SET THE ERROR FLAG 
BEQ 7 :DON'T LET THE FLAG GO TO ZERO 
MOV $STSTNM,a@DISPLAY : DISPLAY TEST NUMBER AND ERROR FLAG 
BIT #B1T10,aSwR ;3BELL ON ERROR? 
BEQ 1$ 3NO - SKIP 
TYPE ari : IRING =o 
1$: INC $ERT ;COUNT THE NUMBER OF ERRORS 
MOV (SP), TE ERRPC TIGET ADDRESS OF ERROR INSTRUCTION 
SUB #2, SERRP C 
MOVB @SERRPC, SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
BIT #BIT13, aSwR 3 SKIP i 3 IF SET 
BNE 20$ :SKIP TYPEOUTS 
JSR PC,SERRTYP ::G0 TO USER ERROR ROUTINE 
208 TYPE -SCRLF 
C MAPTENV, SENV 7 RUNNING IN APT MODE 
BNE $ :zNO.SKIP APT ERROR REPORT 
MOVB $ITEMB,21$ 7:SET ITEM NUMBER AS ERROR NUMBER 
JSR PC, SATY4 ; REPORT FATAL ERROR TO APT 
21$: -BYTE 0O 
BYTE 0 
228: BR 223 ;zAPT ERROR LOOP 
es: TST aSWR 7 cHALT ERROR 
BPL 3$ :zSKIP IF CONTINUE 
HALT ;2HALT ON ERROR! 
3$: BIT #BITO9,aSWR : «LOOP ON ERROR SWITCH SET? 
BEQ 4$ : IF NO 
MOV $LPERR, (SP) +: FUDGE RETURN FOR LOOPING 
4$: TST SESCAPE 3.CHECK FOR AN ESCAPE ADDRESS 
BEQ 53 re IF NONE 
5s MOV SESCAPE , (SP) ; FUDGE RETURN ADDRESS FOR ESCAPE 
CMP ASENDAD , a#42 7zACT-11 AUTO-ACCEPT? 
BNE 6$ : BRANCH IF NO 
HALT 22 VES 
6$: 
RT] 7 RETURN 
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CZVSCC.P11 29=MAY-79 11:36 ERROR MESSAGE TYPEOUT ROUTINE SEQ 0082 

2811 .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
(2) . SEERA AERA EREAEEEEREREEEEAEREREERERER ERE 
(1) *THIS ROUTINE USES THE "ITEM CONTROL BYTE’ ($ITEMB) TO DETERMINE WHICH 
(1) S*ERROR IS TO BE REPORTED. IT THEN ORTAINS, FROM THE ‘ERROR TABLE'' ($ERRTB), 
1) ‘*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
(1) 026044 SERRTYP: 
(1) 026064 104401 001177 TYPE -SCRLF ri''CAPRIAGE RETURN’' & ‘LINE FEED’’ 
(1) 026050 010046 MOV RO,-(SP) :: SAVE R 
(1) 026052 005000 CLR RO ::PICKUP THE ITEM INDEX 
(1) 026054 153700 001114 BISB a#$ITEMB,RO 
(1) 026060 001004 BNE 1$ zz 1F ITEM NUMBER IS ZERO, JUST 
(1) *: TYPE THE PC OF THE ERROR 
(2) 026062 013746 001116 MOV SERRPC,-(SP) +: SAVE SERRPC FOR TYPEOUT 
(2) + ERROR ADDRESS 
(2) 104402 TYPOC : £60 TYPE=-OCTAL ASCII(ALL DIGITS) 
(1) 026070 000426 BR 6$ T OUT 
(1) 026072 005300 1$: DEC RO : ADJUST THE INDEX SO THAT IT WILL 
(1) 026074 006300 ASL RO 33 WORK FOR THE ERROR TABLE 
(1) 026076 006300 ASL RO 
(1) 026100 006300 ASL RO 
(1) 026102 062700 001264 ADD #SERRTB,RO FORM TABLE POINTER 
(1) 026106 012037 026116 MOV (RO) +,2$ 3 SPICKUP “ERROR MESSAGE’’ POINTER 
(1) 026112 001404 BEQ 3$ :SKIP TYPEOUT IF NO POINTER 
(1) 026114 104401 TYPE 23 TYPE THE "ERROR MESSA 
(1) 026116 000000 2$: .WORD 0 ::' ERROR MESSAGE'’ POINTER GOES HERE 
(1) 026120 104401 001177 TYPE /SCRLF :: CARRIAGE RETURN'' & "LINE FEED" 
(1) 026124 012037 026134 3$: MOV (RO) +,4$ *:PICKUP ‘DATA HEADER’ POINTER 
(1) 026130 001404 BEQ 5$ ::SKIP TYPEOUT IF 0 
(1) 026132 104401 TYPE i:TYPE THE “DATA HEADER’ 
(1) 026134 000000 4$: .WORD 0 ::'DATA HEADER'' POINTER GOES HERE 
(1) 026136 106401 001177 TYPE /SCRiF : CARRIAGE RETURN'' & ‘LINE FEED’ 
(1) 026142 011000 S$: MOV (RO) ,RO 22Pi CKUP ‘DATA TABLE" POINTER 
(1) 026144 001004 BNE 7$ 7GO TYPE THE DATA 
(1) 026146 012600 6$: MOV (SP) +,RO RESTORE R 
(1) 026150 104401 001177 TYPE /SCRLF =: "CARRIAGE RETURN'’ & "LINE FEED’’ 
(1) 026154 000207 RTS PC * RETURN 
(1) 026156 7$: 
(2) 026156 013046 MOV a(RO)+,-(SP) :SAVE a(RO)+ FOR TYPEOUT 
(2) 026160 104402 TYPOC ‘GO TYPE--OCTAL ASCII(ALL DIGITS) 
(1) 026162 005710 TST (RO) ‘1S THERE ANOTHER NUMBER? 
(1) 026164 001770 BEQ 6$ :28R IF 
(1) 6166 104401 026174 TYPE ue ; TYPE 1w0(2) SPACES 
(1) 026172 000771 BR "$ LOOP 
(1) 026174 020040 000 8$: Mc s¢ s “TWO(2) SPACES 
(1) 026200 SEVEN 





Be 
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wo .SBTTL TYPE ROUTINE 

(3) EP PRARASAAALAASLASSLALASSAALARSAALASSASARASAS ER AASAARASASASAASAARAS AAAS ASS SB | 

(1) + *ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
(1) 7*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 
(1) :*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
(1) ‘ *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
3h 7 *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

** We 

(1) 7 *CALL: 

(1) is voip A TRAP a 

sh on TYPE -ME SAD 7zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 

) . 

(1) :* TYPE 

(1) om ME SADR 

15 of 

(1) 

(1) 026200 105737 001157 $TYPE: TSTB STPFLG 3231S THERE A TERMINAL? 

(1) 026204 100002 BPL 1$ ;;BR IF YES 

(1) 026206 000000 - HALT > HALT HERE IF NO TERMINAL 

(1) 026210 900430 BR 3$ Hho ig 

(1) 026212 010046 1$: MOV RO,-(SP) SAVE RO 

(1) 026214 017600 000002 MOV a2(SP),RO S:GET ADDRESS OF ASCIZ STRING 

(1) 026220 122737 000001 001222 CMPB MAPTENV, SENV : 7RUNNING IN APT MODE 

(1) 026226 001011 BNE 62$ 32NO,GO CHECK Age ae! — 

(1) 026230 132737 000100 001223 BITB #APTSPOOL,SENVM ::SPOOL MESSAGE T 

(1) 026236 001405 BEQ 62$ ee GO CHECK FOR. CONSO LE 

(1) 026240 010037 026250 MOV RO,61$ SETUP MESSAGE poage bo FOR APT 

(1) 026244 004737 025402 JSR PC ,SATY3 +: SPOOL MESSAGE TO AP 

(1) 026250 000000 61$: - WORD 0 7 MESSAGE ADDRESS 

(1) 026252 132737 000040 001223 628, BITB HAPTCSUP,SENVM ;;APT CONSOLE SUPPRESSED 

(1) 026260 001003 BNE 60$ 2s YES,SKIP TYPE OUT 

(1) 026262 112046 2$: MOVB (RO) +,-(SP) ::PUSH CHARACTER TO BE TYPED ONTO STACK 
(1) 026264 001005 BNE 4$ ::BR IF IT ISN'T THE TERMINATOR 

(1) 026266 005726 TST (SP) + TIF TERMINATOR POP IT OFF THE STACK 
(1) 026270 012600 60$: MOV (SP)+,RO 7ZRESTORE RO 

(1) 026272 062716 000002 3$: ADD #2, (SP) + ADJUST RETURN PC 

(1) 026276 000002 RTI RETURN 

(1) 026300 122716 000011 4$: CMPB HHT, (SP) 7; BRANCH IF <HT> 

(1) 026304 001430 BEQ 8 

(1) 026306 122716 000200 CMPB - = ACRLF, (SP) ; BRANCH IF NOT <CRLF> 

(1) 026312 001006 BNE 5$ 

(1) 026314 005726 TST (SP) + 7:zPOP <CR><LF> EQUIV 

(1) 026316 104401 TYPE 72: TYPE A CR AND LF 

(1) 026320 001177 $CRLF 

(1) 026322 105037 026456 CLRB $CHARCNT 7:CLEAR CHARACTER COUNT 

(1) 026326 000755 BR 2s 32GET NEXT CHARACTER 

(1) 026330 004737 026412 5$: JSR PC, $TYPEC 3:GO TYPE THIS CHARACTER 

(1) 026334 123726 001156 6$: CMPB SFILLC, (SP)+ eI IT TIME FOR Ae CHARS .? 

(1) 026340 001350 BNE 2$ 321F NO GO GET NEXT CHAR. 

Ab 026342 013746 001154 MOV $NULL , ~< SP) ag ay edt tad CHARS. NEEDED 

(1) 026346 105366 000001 7$: DECB 1(SP) eg A NULL NEED TO BE TYPED? 

(1) 026352 002770 BLT 6$ BR IF a POP THE NULL OFF OF STACK 
4h 026354 004737 026412 JSR PC, $TYPEC £360 TYPE A 


NULL 
026360 105337 026456 DECB $CHARCNT :DO NOT COUNT AS A COUNT 


» 
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3h 026364 000770 BR 7$ :;LO0P 
(1) 
4 ;HORIZONTAL TAB PROCESSOR 
( 
(1) 026366 112716 000040 8$: MOVB w° (SP) ie kh TAB WITH SPACE 
(1) 026372 004737 026412 9$: JSR PC ,$TYPEC ; TYPE A SPACE 
(1) 026376 132737 O00007 026456 BITB #7 ,SCHARCNT : BRANCH IF NOT AT 
(1) 026404 001372 BNE 9$ STOP 
(1) 026406 005726 TST (SP) + += POP SPACE OFF STACK 
(1) 026410 000724 BR 2$ aed NEXT CHARACTER 
(1) 9026612 105777 152532 $TYPEC: TSTB asTPs WAIT UNTIL PRINTER IS READY 
(1) 026416 100375 BPL $TYPEC 
(1) 026420 116677 000002 152524 MOVB 2(SP) ,a$TPB ATs CHAR TO BE TYPED INTO DATA REG. 
(1) 026426 122766 000015 000002 CMPB MCR,2(SP) 71S CHARACTER A CARRIAGE RETURN? 
(1) 026434 1 BNE 1$ * > BRANCH IF NO 
(1) 026436 105037 026456 CLRB $SCHARCNT :EYES=-CLEAR CHARACTER COUNT 
(1) 026442 000406 BR $TYPEX IT 
(1) 026444 122766 000012 000002 1$: CMPB ALF ,2(SP) 1S CHARACTER A LINE FEED? 
(1) 026452 001402 BEQ $TYPEX «BRANCH IF YES 
(1) 026454 105227 INCB (PC)+ COUNT THE CHARACTER 
(1) 026456 (00000 $CHARCNT:.WORD O 7 CHARACTER COUNT STORAGE 
a) 026460 000207 $TYPEX: RTS PC 
eee 
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.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


DRIER UIEIISIIIIISISIOISOIDIOIIISIISIIDIIDIDUIIDIDIIDOIIIOIUIIDIDUIDIDIUIIIN IDOE III tit 

[*THIS ROUTINE IS USED pi —¥ A 16-BIT BINARY NUMBER TO A 6-DIGIT 
>*OCTAL (ASCII) NUMBER AND TYPE IT. 

gue oOS-~-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


NUM ,-(SP) >; NUMBER TO BE TYPED 
7 CALL FOR TYPEOUT 
N :iN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
M 77M=1 OR O 
321=TYPE LEADING ZEROS 
37 0=SUPPRESS LEADING ZEROS 


> *$TYPON=---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
;*$TYPOS OR $TYPOC 


NUM ,-(SP) | mF TO BE TYPED 
;CALL FOR TYPEOUT 


;+STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
2? 

:* MO NUM, -(SP) ;NUMBER TO BE TYPED 
is SECALL FOR TYPEOUT 


000000 $TYPOS: a(SP) ,-(SP) :zPICKUP THE MODE 

000001 026705 1(SP) , SOF ILL ; LOAD ey FILL S 

026707 ' (SP) +, $OMODE +1 : ;NUMBER F DIGITS TO TYPE 
000002 ° 3 sADJUST RETURN ADDRESS 


BR 
000001 026705 $TYPOC: ;zSET THE ZERO FILL SWITCH 
000006 026707 MO 7zSET FOR SIX(6) DIGITS 
000005 026704 $TYPON: ;;SET THE ITERATION COUNT 
MO SZ SAVE R3 
77 SAVE R4 
77 SAVE R5 
026707 daa ers :;GET THE NUMBER OF DIGITS TO TYPE 


m. R4 :; SUBTRACT IT FOR MAX. ALLOWED 
4, SOMODE :SAVE IT FOR USE 
SOF ILI R4 :3GET THE ZERO FILL SWITCH 
000012 aati oR5 ; 


extt 
+ :ROTATE MSB INTO ‘'C’’ 
i DO MSB 


FORM THIS DIGIT 


: R3 4 LSB OF THIS DIGIT 
026706 . TYPE THIS DIGIT? 


::BR IF NO 
177770 #177770,R3 GET RID OF JUNK 
BN 4$ SITEST FOR 0 
RS ; SUPPRESS THIS 0? 
001403 5$ +: BR IF YES 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
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(1) 026624 005204 4$: INC R4 ;;DON'T SUPPRESS ANYMORE 0'°S 
(1) 026626 052703 000060 BIS #°0,R3 ;=MAKE THIS DIGIT ASCII 

(1) 026632 052703 000040 5$: BIS a’ ,R3 3 ;MAKE ASCII IF NOT ALREADY 
(1) 026636 110337 026702 MOVB R3,8$ ;;SAVE FOR TYPING 

(1) 026642 104401 026702 TYPE ,8$ ;:GO TYPE THIS DIGIT 

(1) 026646 105337 026704 7$: DECB SOCNT ;;COUNT BY 1 

(1) 026652 003347 BGT 2$ ;;BR IF MORE TO DO 

(1) 026654 002402 BLT 6$ ;3BR_IF DONE 

(1) 026656 005204 INC R4 : INSURE LAST DIGIT ISN*T A BLANK 
(1) 026660 000744 BR 2$ :GO DO THE LAST DIGIT 

(1) 026662 012605 6$: MOV (SP)+,R5 TERESTORE R5 

(1) 026664 012604 MOV (SP) +,R4 iaRESTORE R4 

(1) 026666 012603 MOV (SP) +,R3 7 RESTORE R3 

(1) 026670 016666 000002 000004 MOV 2(SP) ,4(SP) 33SET THE STACK FOR RETURNING 
(1) 026676 012616 MOV (SP) +, (SP) 

(1) 026700 000002 RT] ; RETURN 

(1) 026702 000 8$: -BYTE 0 [STORAGE FOR ASCII DIGIT 

(1) 026703 090 -BYTE 0 ‘TERMINATOR FOR TYPE ROUTINE 
(1) 026704 000 SOCNT: .BYTE 0 ;:OCTAL DIGIT COUNTER 

(1) 026705 000 SOFILL: .BYTE O 33ZERO FILL SWITCH 

(1) 026706 000000 SOMODE: .WORD 0 NUMBER OF DIGITS TO TYPE 





df 
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-P11 29-MAY=79 11:36 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0087 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


DORR EI IIS ISIOIIISISIDIOISIEIIIIOIOIIOIIOIIIOIIDIOIIIOIIIOINIDIIIDIOIIDIIDIDINOIDIDIDIDIIOI INDE 
:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 

; *SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
:*REPLACED WITH SPACES. 


S*CALL: 
:* MOV NUM , = (SP) ;zPUT THE BINARY NUMBER ON THE STACK 
3* S 3:GO TO THE ROUTINE 


026710 $TYPDS: 
RO,-(SP) ;=PUSH RO ON STACK 
;3PUSH R1 ON STACK 
: ¢PUSH R2 ON STACK 
PUSH R3 ON by 
R5,-(SP) :;PUSH RS ON STA 
020200 #20200,-(SP) SET BLANK SWITCH AND SIGN 
000020 20(SP) ,R5 :3GET THE INPUT NUMBER 
1$ IF INPUT IS POS. 
R5 TIMAKE THE BINARY NUMBER POS. 
000055 000001 #'=,1(SP) 7sMAKE THE ASCII NUMBER NEG. 
1$: RO 33ZERO THE er te OER 
027124 ASDBLK ,R3 ;sSETUP THE OUTPUT POINTER 
000040 #’ ,(R3)+ 2eSET THE FIRST CHARACTER TO A BLANK 
; R2 LEAR THE BCD NUMBER 
027114 $DTBL(RO),R1 3:GET THE CONSTANT 
R1,R5 7:FORM THIS BCD DIGIT 


;;BR IF DONE 
3; INCREASE THE BCD DIGIT BY 1 


;zADD BACK THE CONSTANT 

2s CHECK IF BCD DIGIT=0 
3FALL THROUGH IF 0 

3STILL = te LEADING 0°S? 


WWW A 2 PS SS 
ee ON ee 


Fe ee te 
Wu 
~~ we ee 


7 MSD? 
6$ ; ;BR IF NO 
000001 177777 1 r sie we THE SIGN 
000060 6$: #'0,R2 MAKE THE BCD DIGIT ASCII 
000040 : #" ,R2 + SMAKE IT A SPACE IF NOT ALREADY A DIG 
* PUT THIS CHARACTER IN THE OUTPUT BUF 
7: JUST INCREMENTING 
000010 Shag THE TABLE INDEX 
2$ :GO DO THE NEXT DIGIT 
:GO TO EXIT 


[:GET THE LSD 
::GO CHANGE TO ASCII 
ao THE FIRST NON-ZERO? 


9$ 
177777 +=177776 ~1(SP) ,-2(R3) oir ne. THE SIGN FOR TYPING 
9 (R3) SET THE TERMINATOR 
(SP)+,R5 :;POP STACK INTO R5 
027066 (SP)+,R3 [POP STACK INTO R3 
027070 012602 (SP)+,R2 POP STACK INTO R2 


IT 
FER 


) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 


(1 
(1 
(1 
< 
; 
1 
(1 
1; 
1 
(1 
; 
.¢ 
1 
qd 
.; 
1 
; 
(1 
qd 
(1 
(1 
(1 
(1 
1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(3 
(3 
(3 
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CZVSCC.P 


027072 
027074 


027124 


012601 


027124 
000002 000004 


17=SEP=79 08:48 PAGE 19-1 


ONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


$DTBL: 


$DBLK: 


(SP)+,R1 3=POP STACK INTO R1 
(SP)+,RO ;sPOP STACK INTO RO 

. SDBLK 7 iNOW TYPE THE NUMBER 
2 (SP) ,4(SP) ; ADJUST THE STACK 
(SP)+, (SP) 


3 zRETURN TO USER 


SEQ 0088 
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2819 
(1) 


~ 
La) 
~ 


ee Ne Nee es ae ae Se eS eS eS ee we ee Sw ee 


PL LL LO LLL OL FE fm fm Fm 


(3) 


027134 


027154 


027156 


027170 


0 
027202 


29=MAY=-79 


006300 
016000 
000200 


011646 
016666 
000002 


027156 


026710 


000002 


027170 


000004 000002 


TRAP DECODER SEQ 0089 
.SBTTL TRAP DECODER 


RAEI IIOIOIUIIO I IIIISIIOUIOIIUIOIUIII IO IOIUIOIUISIISIDISIISISIIOIDIOIDISIOININININIOIOR 

SR THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘'TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
>*GO TO THAT ROUTINE. 


STRAP: MOV RO,-(SP) 7-SAVE RO 
MOV 2(SP) ,RO + 3GET TRAP ADDRESS 
TST -(RO) ;BACKUP BY 2 
MOVB (RO) ,RO :3GET RIGHT BYTE OF TRAP 
ASL RO sPOSITION FOR INDEXING 
MOV $TRPAD (RO) ,RO : INDEX TO TABLE 
RTS RO :GO TO ROUTINE 


3zTHIS IS USE TO HANDLE THE ‘'GETPRI*’ MACRO 


$TRAP2: MOV (SP) ,~(SP) 3:MOVE THE PC DOWN 
MOV 4(SP) ,2(SP) 3sMOVE THE PSW DOWN 
RTI sRESTORE THE PSW 


.SBTTL TRAP TABLE 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
“*BY THE "‘TRAP'' INSTRUCTION. 


; ROUT INE 
$TRPAD: .WORD  $TRAP2 
$TYPE  ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 


$TYPOC ;;CAL.=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
$TYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
$TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
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CZVSCC.P11 29-MAY-79 11:36 POWER DOWN AND UP ROUTINES 


-SBTTL POWER DOWN AND UP ROUTINES 


FSAI ISISISIOIOIICIIIDIOITIOIOIDIDIOIIOITI IOI TOIT ITO TTT TOT TTT TT TST SST TS TT TE 
“ POWER DOWN ROUTINE 
012737 000024 $PWRDN: MOV ASILLUP, A#PWRVEC igSET FOR FAST UP 
0003 000026 MO #340, a4PWRVEC+2 ; 0:7 
0,-(SP) RO ON STACK 


151700 ;;PUSH @SWR ON STACK 
027354 ;;SAVE SP 
027256 000024 W#SPWRUP , @APWRVEC’ :;SET UP VECTOR 


000000 
027254 “2 3 HANG UP 


IORI IORI IORI IOI IORI IAA IAD I AISI AI ISSAIIAISSIS SSSI SSIS SII SSSA AIIM. 
;POWER UP ROUTINE 
ha 027350 000024 2 eyhe sf @4PWRVEC Rts FAST DOWN 
sWAIT LOOP FOR THE TTY 
027354 1$: WAIT FOR THE INC 
1$ WORD 


151632 


at td ot a ff) SS = SS 3) (AI WIW\WAWW 


Fe Tam Tatty an Tain tap, ha at i at tn et et a et ee a a i a i a 
ee Ne es ee Se eS eS YS eve ewe 


; sPOP NTO RO 
027204 000024 ASPWRDN , APWRVEC bao: sf THE POWER DOWN VECTOR 


000340 000026 MOV #340, BHPURVECS? 72PR 
REPORT THE POWER FAILURE 
SPWRMG: . PWRMSG + TPOWER FAIL MESSAGE POINTER 
(PC) +, (SP) 7sRESTART AT RSTART 
SPWRAD: . RSTART 7 zRESTART ADDRESS 


$SILLUP: 33THE POWER UP SEQUENCE WAS STARTED 
BR ° ie BEFORE THE POWER DOWN WAS COMPLETE 
$SAVR6: 0 PUT THE SP HERE 
027356 042522 052123 PWRMSG: .ASCIZ <15><12>/RESTARTED AFTER A POWER FAILURE/<15><12><12> 
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ses? -SBTTL ASCII MESSAGES 
2827 027423 015 051412 040524 MSGI: .ASCIZ <15><12>/START OF CZVSC=C VS60 INSTRUCTION TEST PART III/<15><i2> 
2828 027511 015 045412 030524 MSG2: .ASCIZ <15><12>/KT11 ER _TRAP/ 
2829 027530 005015 042515 047515 MSG3: .ASCIZ <15><12>/MEMORY SIZE =/ 
2830 027550 006513 Ropots MSG4: .ASCIZ /K/<15><12> 
2831 027554 027114 027120 043040 EMI: ASCIZ /L.P. FLAG INTR FAILURE/ 
2832 027603 123 066111 020117 EM2: ASCIZ /SILO FAILURE AT LEVEL INDICATED/ 
2833 027643 123 045524 050040 EMS: ASCIZ /STK PTR DEC ER/ 
2834 027662 052123 041501 020113 EM4: eASCIZ = /STACK_OVERFLOW ER/ 
2835 027704 050104 020103 052123 EMS: -ASCIZ /DPC STKING 
836 027722 050104 020125 040516 EM6: -ASCIZ /DPU_NAME STKING ER/ 
2837 027745 115 042117 020105 EM?: ASCIZ /MODE STKING ER/ 
2838 64 042526 052103 051117 EM10: .ASCIZ /VECTOR SCALE STKING ER/ 
2839 103 040510 040522 EM11: .ASCIZ /CHARACTER SCALE STKING ER/ 
2840 0 5 103 040510 040522 EM12 SCIZ /CHARACTER ROTATE STKING ER/ 
2841 030100 047111 042524 051516 EM13 eASCIZ /INTENSITY LEVEL STKING ER/ 
2842 030132 7503 047514 020122 EM14 ASCIZ /COLOR LEVEL STKING ER/ 
2843 0301 052111 046101 041511 EM15 eASCIZ /ITALICS STKING ER/ 
2844 030202 2515 052516 051440 EMI16 eASCIZ /MENU STKING ER/ 
2845 030221 102 14 045516 EM17 -ASCIZ /BLINK ENA STKING ER/ 
2846 030245 123 047524 020120 EM20 eASCIZ /STOP INT ENA STKING ER/ 
2847 030274 050114 04 052111 EM21 eASCIZ /LP HIT DISABLE STKING ER/ 
2848 030325 114 020104 052123 EM22 ASCIZ /LD STAUTS ENA STKING ER/ 
2849 030355 105 04 020105 EM23 eASCIZ /EDGE INT ENA STKING ER/ 
2850 030404 044103 051101 051440 EM24 eASCIZ /CHAR STRING ESCAPE STKING ER/ 
2851 030441 104 050105 044124 EM25 eASCIZ /DEPTH QUE STKING ER/ 
2852 030465 114 04 020105 EM26 eASCIZ /LINE TYPE STKING ER/ 
2853 030511 111 052116 047105 EM27 ~ASCIZ /INTENSITY ENA STKING ER/ 
2854 030541 114 00 020056 EM30 -ASCIZ /L.P. INTR ENA STKING ER/ 
2855 030571 114 050056 020056 M31 eASCIZ /L.P. SW INTR ENA STKING ER/ 
2856 030624 044123 043111 020124 EM32 eASCIZ /SHIFT OUT STKING ER/ 
2857 030650 052123 020113 052120 EM33 ASCIZ /STK PTR INC ER/ 
2858 030667 123 04 052440 EM34 eASCIZ /STK UNDERFLOW ER/ 
2859 030710 050104 020103 047520 EM35 -ASCIZ /DPC POP ER/ 
030723 116 04 020105 EM36 eASCIZ /NAME POP ER/ 
2861 030737 126 041505 047524 &EM37 -ASCIZ /VECTOR SCALE POP ER/ 
030763 103 040510 020122 EM40 »ASCIZ /CHAR SCALE POP ER/ 
2863 031005 103 040510 020122 EM41 eASCIZ /CHAR ROTATE POP ER/ 
031 047503 047514 020122 EM42 eASCIZ /COLOR LEVEL POP ER/ 
2865 031053 111 040524 044514 EM43 eASCIZ /ITALICS 
2866 031072 042515 052516 050040 EM44 eASCIZ /MENU POP ER/ 
2867 0311 047111 04 051516 EM45: ASCIZ /INTENSITY ENA POP ER/ 
2868 031133 114 0056 EM46: ASCIZ /L.P. INTR ENA POP ER/ 
2869 0311 027114 027120 051440 &EM47: ASCIZ /L.P. SW INTR ENA POP ER/ 
2870 031210 044514 042516 052040 EMS5O: ASCIZ /LINE TYPE POP ER 
2871 031231 111 052116 047105 EM51: .ASCIZ /INTENSITY LEVEL POP ER/ 
2872 0312 046102 04 020113 EMS2: ASCIZ /BLINK POP ER/ 
2873 031275 115 042117 020105 EMS3: ASCIZ /MODE POP ER/ 
2874 031311 123 047524 020120 EM54: .ASCIZ /STOP INTR ENA POP ER/ 
2875 031336 042504 052120 020110 EM55: .ASCIZ /DEPTH QUE ER/ 
2876 031357 105 020105 EM56: .ASCIZ /EDGE INTR ENA POP ER/ 
2877 031404 044703 051101 051440 EM57: .ASCIZ /CHAR STRING ESC POP ER/ 
2878 031433 114 0056 EM60: .ASCIZ /L.P. HIT DISABLE POP ER/ 
2879 031463 123 044510 052106 EM61: .ASCIZ /SHIFT OUT POP ER/ 
2880 031504 042524 046522 047111 EM62: .ASCIZ /TERMINATE CHAR POP ER/ 


B & 
free 17=SEP=79 08:48 PAGE 22-1 
MESSAGES 


053117 to* /STK OVFLO INT ER/ 
EM64 : /STK_UNFLO INT ER/ 

/DELTA Lee ER/ 
/ TANGENT a 
/DPC_ 16-17 ER/ 
/VS60 MEM ADRS FAILURE/ 
/STOP FLAG oi TO SET/ 
/START FAILED TO SET 
ZERRPC TST 


/ERRPC 
JERRPC GDPC-HI GDPC 
105 1 : JERRPC VECTOR EXPCT RCVD/ 
032232 : oe /ERRPC  TSTNUM BUSADRS EXPCT RCVD LEVEL/ 


032310 : : -WORD S$ERRPC,TSTNUM,SB8DADR,$GDDAT ,$BDDAT .0 
: . SERRPC , TSTNUM, SBDADR,, $GDDAT , SBDDAT , STMPO ,0 
SERRPC , TSTNUM,G1716,$GDDAT .B1716, SBDDAT ,0 

SERRPC , TSTNUM, STMPO , SGDDAT , SBDDAT .0 


DISA IO RSISISIDIIOI IOI IOISIOISIOIDIIIOIIDISIOIOIOIIOIIIOIIOIIOISIIOI IOI IOI TSI OT TOT TT TE IE 
THIS 1S THE WORKING AREA FOR ALL VS60 NPR'S (INSTR & DATA) 
;FROM HERE TO THE END OF MEMORY 
IOUS ISSIR II OIOISISIDIOISIOIOIOIS IOI OISIDIDIDIOIIOISIDIOIDIOIDIOIIOIIDIOI IOI IOI IO IOI IDI 
032574 BUFFER: 0 ;LOCATIONS START HERE FOR TESTING 
000001 . END END OF PROGRAM 


CZvSC=C__ vS60 Sr > ST PART oo 1 
29-MAY~ 


CZVSCC.P11 


$07 


052123 
123 


FRARS 
—NNIUWIO 
Vann 
Mn 
OAL SW 


leleloleloleoja) 
see aaee 
MPNMN—~w 
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CZVSCC.P11 29-MAY-79 11:36 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0093 
SE = 172000 174 29 
ACDW1 = 000000 29 
ACDW2 = 000000 29 
ACPUOP= 000000 29 
ADDWO = 000000 29 
ADDW1 = 000000 29 
ADDW10= 000000 29 
ADDW11= 000000 29 
ADDW12= 000000 29 
ADDW13= 000000 29 
ADDW14= 000000 29 
ADDW15= 000000 29 
2 = 000000 29 
ADDW3 = 000000 29 
ADDW4 = 000000 29 
ADDWS = 000000 29 
ADDW6 = 000000 29 
ADDW7 = 000000 29 
ADDW8 = 000000 29 
ADDW9 = 000000 29 
ADEVCT= 000000 29 
ADEVM = 000000 29 
AENV. = 000000 29 
AENVM = 000000 29 
AFATAL= 000000 29 
AMADR1= 000000 29 
AMADR2= 000000 29 
AMADR3= 000000 29 
AMADR4= 000000 29 
AMAMS1= 000000 29 
AMAMS2= 000000 29 
AMAMS3= 000000 29 
AMAMS4= 000000 29 
AMSGAD= 000000 29 
AMSGLG= 000000 29 
AMSGTY= 000000 29 
AMTYP1= 000000 29 
AMTYP2= 000000 29 
AMTYP3= 000000 29 
AMTYP4= 000000 
ANAME 002264 4804 
APASS = 000000 29 
= 000000 29 
APTCSU= 000040 28084 2813 
APTENV= 000001 28084 2809 2813 
APTSIZ= 000200 492 28084 
APTSPO= 000100 28084 2813 
ASWREG= 000000 29 
ATESTN= 000000 29 
AUNIT = 000000 29 
AUSWR = 000000 29 
AVECT1= 100320 184 29 
AVECT2= 000000 29 
BADR 023416 2458 2492 25344 
BITO = 000001 164 595 614 648 651 670 673 676 698 728 757 785 813 
840 867 894 921 948 975 1002 1025 1051 1078 1105 1132 1157 
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1238 1265 1292 1319 1346 1377 1814 1837 
1906 1964 1988 2012 2047 2275 2388 2620 


2600 2703 2708 
1993 


8 
6 
7 
, 
1 
: 
, 
: 
; 
1 
1 
1 
1 
1 
: 
1 
- 
; 
1 
1 
1 
1 
: 
1 
1 
1 
1 
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032374 643 
72 724 747 
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CZVSCC.P11 : 36 
CR = 000015 164 
CRLF = 164 
CSIZR 002616 5034 
DDISP = 177570 164 
DELAY 024446 594 
920 
1264 
1905 
2599 
DH1 031763 34 
288 
379 
DH2 032030 m > 
DH3 032110 421 
DH4 032165 400 
DHS 032232 41 
DISPLA 001142 oon 
DISPRE 000174 ola 
DLYCNT 0022 4514 
D 002270 4824 
DO 024512 1452 
1707 
DPC 002244 4724 
753* 
919* 
1101* 
1263* 
1433* 
1962* 
2235* 
2534 
DPCONV 024576 2373 
DPCON1 024610 2394 
DPCSAV 024246 2616* 
DSWR = 177570 1 
DT1 032310 35 
289 
380 
DT2 032324 ‘7 
oT3 032342 422 
D14 032360 401 
EMTVEC= 30 164 
—EM1 027554 33 
EM10 27764 82 
—M11 030013 89 
EM12 030045 96 
—M13 30100 103 
EM14 030132 110 
—M15 030160 118 
EM16 030202 125 
—M17 030221 132 
EM2 027603 40 
EM20 030245 139 
EM21 030274 146 


E 8 
17-SEP-79 08:48 PAGE 
CROSS REFERENCE TABLE == USER SYMBOLS 


23-2 


SEQ 0095 


F 8 
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CZVSCC.P14 29=MAY-79 11:36 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0096 
EM22 030325 153 28484 
EM23 930355 160 28494 
EM24 030404 167 28504 
EM25 030441 174 28514 
EM26 030465 181 28524 
—EM27 030511 188 28534 
—EM3 027643 47 28334 
EM30 030541 195 28544 
—M31 030571 202 28554 
EM32 030624 210 28564 
EM35 030650 217 28574 
EM34 030667 224 28 
EM35 030710 231 28594 
EM36 030723 238 28604 
—M37 030737 245 28614 
EMG 027662 54 28344 
EM4O 030763 252 28624 
EM41 005 259 28634 
EM42 031030 266 28644 
EM43 031053 273 28654 
EM44 031072 280 28664 
EM4S 031106 287 28674 
EM46 031133 294 
EM47 031160 301 28694 
EMS 027704 61 28354 
EMSO 031210 308 28704 
—M51 031231 315 28714 
EMS2 031260 322 28724 
EMS3 031275 329 28734 
EMS4 031311 336 28744 
EMSS 031336 343 28754 
EMS6 031357 350 28764 
EMS7 031404 357 28774 
EM6 027722 68 28364 
EM60 031433 3 28784 
EM61 031463 371 28794 
EM62 1504 378 
EM63 031532 385 28814 
EM64 031553 392 28824 
EM65 031574 399 28834 
EM66 031614 4 28844 
EM67 031627 413 28854 
EM7 027745 75 28374 
EM70 644 420 28864 
—EM71 031672 427 28874 
EM72 031722 434 28884 
ERRVEC= 000004 164 492* 505* 516* 527* 538* 540* 552* 2806* 
EXECUT 025044 2085 2113 2143 2179 2214 27924 
GNS = keene | 21 2819 
G1716 002224 4584 2375* 2399 2897 
HT = 000011 164 2813 
TVEC= 20 164 492* 
KIPARO 002230 4634 529* 
KIPAR2 002234 4654 531* 546* 547 553* © 554 2357* 2365 2367* 2370* 2372 2402" 2403 
KIPAR7 002240 4674 533* 547 . 


KIPDRO 002232 4644 530* 


G 8 
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CZVSCC.P11 -79 11:36 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0097 

KIPDR2 002236 4664 532* 

KIPDR7 002242 4684 534* 

KTENAB 002220 4564 504* 513s 523 537* 557* 2353 2356* 

KTERRV= 000250 4454 526* 

KTMAX 002222 457# 554* 555 559 2365 2403 

KTSER 024630 526 273514 

KTSIZR 002736 524 64 

KTSRO = 177572 4464 528 542* 545* 550* 2360* 2364* 2731* 

LDRSV1 002210 4524 2270* 2284 2310* 2330 

LDRSV2 002212 4534 2311* 2331 

LF = 000012 164 2813 

MAINT1= 010000 4424 2233 

MAINT2= 020000 4434 

MEMMAX 002214 4544 518* 565 2262 2301 

MSG1 027423 495 28274 

MSG2 027511 2732 28284 

MSG3 027530 573 28294 

MSG4 027550 576 28304 

OPEN = 000000 4414 450 451 452 453 454 455 456 457 458 459 472 473 
cS 475 476 477 478 479 480 48) 482 483 484 485 486 

PIRQ = LAGS 164 

PIRQVE= 000240 164 ; 

POPSET 024462 1448 1468 1489 1510 1530 1551 1570 1589 1608 1628 1647 1666 1685 
1703 1724 1746 1764 1786 1809 1832 1855 1878 1901 26894 

PRO = 000000 164 

PR1 = 000040 164 

PR2 = 000100 164 

JPR3 == 000140 164 

PRG == 0002 164 

PRS = 000240 164 

PR6 = 000300 164 

PR7 = 000340 164 

PS = 177776 164 

PSW = 177776 164 579* 606* 1920* 2009% 2013% 2044% 2048% 2462% 2471% 2595 2605* 2739% 

PWRMSG 027356 2821 28224 

PWRVE C= 24 1 492 2821* 

RCNT 023444 2457 2501 25484 

RCNT1 024270 2592 2638 26654 ; 

RESVEC= 000010 164 

RLO 002254 476M = .2234% = =2247% = =2254% = 2371% = 2378* = =2381* 2405* 

RSTART 003244 22 572 577# 2676 2821 

RSTVEC 024646 2032 2067 2508 2647 27394 

SETPTR 002576 4984 502 

SILOR 023344 2456 2459 2495 25124 

SILOR1 024250 2591 2632 2642 26524 

SREGO 002246 Rit 1549 1556 1701 1708 1721 1729 1743 1749 1762 1773 2028 2063 

SREG1 002256 4774 607 617 621 1415 1416 1420 1466 1473 1486 1494 1508 1514 
1568 1$74 2004 2016 2021 2039 2051 2056 2236 2237 2250 2536 

STACK = 001100 . 164 492 578 

START 002304 21 492 

START1 002566 494 4964 

STKLMT= 177774 164 

STKPT 002276 4854: 588 592s 596 608* 628 630* 632 645* 649* 667* 674* 693* 


699* 721 729s 752s 758* 780* 786* 808* 814s 835* 841* 862* 868* 


CZvSC=C__vS60 ewlbnad He Aa ty PART III MACY11 30G(1063) 


CZ2VSCC.P11 


STKVAL 


w 
= 
— 
oO 
rnnrnnnbnnnin nnn bn nn hn an nna 


3 
TST104 


002272 


021322 


27554 
2774 
1982* 


~. 2895 


2778* 


2896 


8 
17=SEP=79" 08:48 PAGE 23-5 


27854 


. 2897 


2898 


CROSS REFERENCE TABLE -=- USER SYMBOLS 


I 8 
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CZVSCC.P11 29=MAY-79 11:36 CROSS REFERENCE TABLE <= USER S OLS SEQ 0099 
TST10S 021516 22568 

TST106 021732 2258 2292 22964 
TST107 022204 2298 2339 23434 
TST11 = =004744 769 7738 
TST110 022546 2354 24074 
T$T111 3456 2510 25554 
TST112 024302 2648 26714 
TST12 005144 97 8014 
TST13 =©005334 8284 

TST14 5534 8554 

TST15 005732 8824 

TST16 =©006122 9094 

TST17 ~=006310 9364 

TST2 003412 6054 

TST20 006502 96 

TST21 006670 9904 

TST22 007060 10164 

TST23 007230 1034 10394 
TST24 007420 10664 

TST25 7 10934 

TST26 §©007776 11204 

TST27 010166 11474 

TST3 003546 622 6278 
TST3O ©6010 346 11714 

TST31 »=.010534 11984 

TST32 © ©010724 12254 

TST33 = 011122 12534 
TST340»=—-011312 12804 

TST35 =©011502 13074 

TST36 011672 13344 

TST37 012062 13614 

TST4 3632 635 6384 
™8.40 012272 13924 

TST4; 012406 14074 

TST42 §©6012534 14274 

TST43 = 012652 1441 14444 
TST44 1459 14644 
TST45 013142 1479 14844 ‘ 
TST46 =: 001 3300 1501 15064 
TST47 =: 01 33426 1520 15254 
TSTS 003772 56 

TSTSO 013564 1542 15474 
TST51 =. 013712 1562 15664 
TSTS2 014040 1580 15854 
TST53 =. 0014166 1599 16044 
TST54 014314 1618 16234 
TSTSS)§ =: 014442 1637 16424 
TSTS6 =—.014570 1656 16614 
TSTS7 =. 0014716 1675 16804 
TST6 00414 6864 

TST60 015044 1694 16994 
TST61 015172 1714 17194 
TST62 86015330 1736 17414 
TST63 = =©015456 1756 17604 
TST64 015624 17814 

TST65 015772 1799 18044 





J 8 
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CZVSCC.P11 
TST66 §=016142 
TST67 =. 016312 
TST? 342 
TST70 016462 
TST71 016632 
TST72 017002 
TST73 = =©017220 
TST74 17406 
TST75 §=©017554 
TST76 2 
TST77 20224 
TYPCOR 003202 
TYPDS = 104405 
TYPE = 104401 
TYPMEM 003216 
TYPOC = 104402 
TYPON = 104404 
TYPOS = 104403 
XDOFF 002260 
XPOS 002250 
YDOFF 002262 
YPOS 002252 
ZDOFF 002302 
ZPOS 0023 
$SAPTHD 001 
SASTAT= «eax 
$ATYC 025420 
$ATY1 025374 
SATY3 025402 
SATY4 025412 
SAUTOB 1134 
$BASE 001256 
$BDADR 001122 
SBDDAT 001126 


29-MAY=79 11:36 


2157 
2128 


2 
2755* 


CROSS REFERENCE TABLE == USER SYMBOLS 


5654 
2732 2809 2811 2813 


2194 2200 2392 
2165 


42% 843* 844 869* 
951* 952 977* 978* 
1055 1080* 1081* 1082 
1185* 1186* 1187 1212s 
1295* 1296 1321* 1322* 
1400 1418* 1423* 1439* 
1496 1514" 1515* 1516 
1593* 1594* 1595 1612* 
1670* 1671 1688* 1689» 
1751 1773* 1774* 1775 
1862* 1863* 1864 1885* 
1971 1994* 1995 2016* 
2116* 2117 2147* 2148 
2277* 2278 2323* 2324 
2759* 2895 2896 2897 


2815 


2817 


28194 


2 
2218* 
2478s 


2821 


SEQ 0190 


: K 8 
CZVSC=C VS60 INSTRUCTION TEST PART III MACY11 30G(1063) 17=SEP=79 08:48 PAGE 23-8 
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SBELL 001172 294 2809 
$SCDW1 001262 298 
SCHARC 026456 28134* 
SCKSWR= seer | 2819 
SCMTAG 001100 294 492 
$CM1 = 000001 294 
$cM2 = 000002 oF 
$CM3 = 000001 on 
$CM4 = 000001 298 
SCPUOP 001230 29" 
SCRLF 001177 29% 2809 2811 2813 
SDBLK 027124 28178 
SDEVCT 001212 298 
1260 294 
SDOAGN 024422 26764 
SOTBL 027114 28174 
024412 ya 26764 2809 
SENDCT 024360 492 26764 
024431 26764 
SENULL 024426 26764 
SENV 001222 294 2808 2809 2813 
SENVM = 001223 294 492 2808 2813 
024324 2673 26764 
SEOPCT 024352 492* 26764 
SERFLG 001103 29% 2806* 2809* 
SERMAX 001115 298 492*  2806* 
SERROR 025642 492 28094 
SERRPC 001116 29H = 2809* 2811 2895 2896 2897 2898 
SERRTB 001264 298 =2811— 
SERRTY 026044 2809 281i 
SERTTL 001112 29% 2809* 
SESCAP 001170 298 492*  2806* 2809 
SETABL 001222 on 
SETEND 001264 27 294 
SFATAL 1204 29# 2808* 
SFFLG 025640 28084 
SFILLC 001156 SH 2813 
SFILLS 001155 29H =§=2813 
$SGDADR 001120 298 
SGDDAT 001124 298 590* 598 602* 609* 623* 629* 634 643* 652 663* 677 689* 
- 702 709* 715* 32 42* 746* 7 768* 774* 789 796* 802* 817 
825* 829* 844 852* 856* 871 879* 883* 898 906* * 
937* 952 960* 964* 979 987* 991* 1006 1014* 1017* 1029 
1063* 1067* 1082 1090* 1094* 1109 1117* 1121* 1136 1144* 1148* 
1 1195* 1199*% 1214 1222* 1227* 1242 1250* 1254* 1269 1277* 
1304* 1308* 323 1331* 1335* 1350 1358* 1362* 1381 1389* 13594* 
1404 1409* 1422 1429* 1440 1447* 91451 1455 1458* 1467* 1471 
1487* 1496 1499* 1509* 1516 1519* 1528* 1537 1540* 1550* 1554 
1569* 1576 1579* 1588* 1595 1598* 1607* 1614 1617* 1626* 1633 
1652 1655* 1664* 1671 1674* 1683* 1690 1693* 1702* 1706 1710 
1731 1735* 1744" 1751 1755* 1763* 1768 1775 1778* 1784* 1795 
1818 1821* 1830* 1841 1844* 1853* 1864 1867* 1876* 1887 1890* 
1913* 1923* 194 1948* 1952* 1971 1978* 1995 2007* 2026* 2042s 
2089 2093" 2111* 2117 2121* 2140* 2148 2150 2158* 2160* 6 
2239 2242* 2246* 2268 2278 2308* 2324 2374 2383 2397 2477* 
2611* 2625* 2626 2769* 2772% 2773* 2777* 2780 2782* 2895 2896 
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$GET42 024402 26764 
SGTSWR= eeeeee 2819 
SHD 12 


SHIBTS 001 27A 
SICNT 0011 29%  2806* 
SILLUP 027350 28214 
SINTAG 001135 on 
SITEMB 001114 29H =§=2809* 2811 
F 001200 co §=2809 2813 
SLFLG 025637 28084 
SLPADR 001106 492*  2806* 
SLPERR 001110 294 49e* 587* 644* 666* 690* 718* 749* 777* 805* 832* 859* 886* 


SMADR1 001234 294 


2676* 


CZVSC-C__VvS60 INSTRUCT] 
CZVSCC.P11 


SSWREG 


SSWRMK= 0) 


STESTN 


kkekee U 
kkkkee | 
027354 
025116 
000037 
177777 
025322 
000210 
167400 


001224 
00000 
001206 


001166 


001146 
001144 
001164 


000113 


_ 


29-MAY-79 


he PART III MACY11 30G(1063) 
1:36 CROSS REFERENCE TABLE == USER SYMBOLS 


2809 


2813 


M 8 
17-SEP-79 08:48 PAGE 23-10 


20984 
23434 


21 
24074 


2 
26714 


SEQ 0103 


N 8 
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STRP = 000006 28194 
STRPAD 027170 28194 
STSTM 001004 227A 
STSTNM 001102 294 580*  2676*  2806* 2809 
STYPBN= **#eeee (J 
STYPDS 026710 28174 2819 
STYPE 026200 2808 28134 2819 
STYPEC 026412 28134 
STYPEX 026460 281 
STYPOC 026506 28154 2819 
STYPON 026522 28154 2819 
STYPOS 026462 28154 2819 
001214 294 
SUNITM 001010 ove 
SUSWR 001226 294 
$VECT1 001252 294 2000 2035 2451 2585 2741 
SVECT2 001254 294 
SXTSTR 025126 28064 
$S$GET4= 000000 26764 
SOFILL 026705 28154* 
S4OCAT= eeeeee 2806 2809 
. = 032376 aot 244 264 274 294 492 2676 2806 
-SASTA= *ekaKe 2808 


-$x = 001000 27# 


28084 


2809 


28114 


2813 


SEQ 0104 


28174 


CZVSC=C__VS60 INSTRUCTION TEST PART III] MACY11 30G6(1063) 17-SEP-79" 08: rae B - 24 


CZVSCC.P11 29-MAY-79 11:36 CROSS REFERENCE TABLE <= MACRO SEQ 0105 
COMMEN 164 
ENDCOM 164 
ERROR 164 600 620 625 636 655 680 705 735 764 792 820 47 874 
928 5 982 1009 1032 1058 108 1112 1139 1164 1190 1217 124 1272 2 
1326 135 1384 1402 1419 1424 1442 1457 1477 1498 1518 1539 1560 1578 1597 
1616 1635 1654 1675 1692 1712 1733 1753 1777 1797 1820 1843 8 1889 1912 
5 1973 1997 2018 2024 2031 2053 2059 2066 2092 2120 2151 2189 2224 2241 
2253 2326 2401 2479 2487 2613 2628 
ESCAPE 164 
GETPRI 164 
mT Jee 
NEWTST 164 586 605 627 6 686 714 745 773 801 828 855 882 
936 3 1016 1039 1066 1093 1120 1147 1171 1198 1225 1253 1280 1307 
1334 1361 1392 1407 1427 1444 1464 1484 1506 1525 1547 1566 1585 6 1623 
1642 1661 1680 1699 1719 1741 1760 1781 1804 1827 1850 1873 18 1919 1951 
1977 1 2034 2069 2098 2126 2163 2198 2229 2256 22 2343 2407 2555 2671 
164 2808 2817 2821 
SH 164 2808 2817 2821 
REPORT 164 
SCOPE 164 586 605 627 638 66 686 714 773 801 828 855 882 
936 1016 1039 1066 1093 1120 1147 1171 1198 1225 1253 1280 1307 
1334 1361 1392 1407 1427 1444 1464 1484 1506 1525 1547 1566 1585 1604 1623 
1642 1661 1680 1699 1719 1741 1760 1781 1804 1827 1850 1873 1896 1919 1951 
As 1999 2034 2069 2098 2126 2163 2198 2229 2256 2296 2343 2407 2555 2671 
SETPRI 1 
SETTRA 28194 
SETUP 164 492 
SKIP 164 622 635 710 740 769 797 1034 1441 1479 1501 1520 1542 1562 
1580 1599 1618 1637 1656 1675 1694 1714 1736 1756 1799 1822 1845 1868 1891 
1914 2153 2193 2258 2292 2298 2339 2354 2648 
SLASH 164 
SPACE 164 ' ; 
STARS 164 24 27 586 605 627 638 660 686 14 745 773 801 828 
855 936 963 990 1016 1039 1066 1093 1120 1147 1171 1198 1225 
1253 1280 1307 1334 1361 1392 1407 1427 1444 1464 1484 1506 1525 1547 566 
1585 1604 1623 1642 1661 1680 1699 1719 1741 1760 1781 804 1827 1850 1873 
1896 1919 1951 1977 1999 2034 2069 2098 2126 2163 2198 2229 2256 2296 2343 
2407 2555 2671 2676 2678 2680 2686 2688 2695 2697 2711 2713 2728 2730 2736 
16 2750 2754 2763 2766 2787 2791 2806 2808 2809 2811 2813 2815 2817 2819 
SWRSU 1 4924 
TRMTRP 28194 
TYPBIN 
TYPDEC 164 2676 
TYPNAM 164 
TYPNUM 164 
TYPOCS 164 
TYPOCT 164 2811 
TYPTXT 164 
SSCMRE 298 
SSCMIM 294 
SSESCA 164 
SSNEWT 164 586 605 627 638 660 686 714 745 773 801 828 855 882 909 
936 963 990 1016 1039 1066 1093 1120 1147 1171 1198 1225 1253 1280 1307 
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SSSET 28194 
SSSETM 4928 


$SSKIP 164 622 710 740 
1580 1599 1618 1637 1656 
1914 1996 2193 2258 
-EQUAT Sa 16 
. HEADE Sa 12 
. SETUP 54 491 
SWRH I Sf 
SWRLO 204 
$ACT1 84 4 
. SAPTB 84 294 
.SAPTH 84 2 
TY 84 2808 
.SCATC Sa 2 
SCMTA Sa 
. SEOP 64 2676 
SERRO 64 2809 
.SERRT 7# 2811 
64 2821 
$SCOP 64 2806 
STRAP 64 2819 
$TYPD 7# 2817 
STYPE 7# 2813 
$TYPO 7# = 2815 


- ABS. 032376 000 OVR RO REL GBL 


ERRORS DETECTED: 0O 
CZVSCC ,CZVSCC/CRF=CZVSCC 
RUN-TIME: 31 20 1 


E 
RUN-TIME RATIO: 107/54=1.9 
CORE USED: 26K (51 PAGES) 


17=SEP-79° A 48 PAGE 24-1 
CROSS REFERENCE TABLE == MACRO NAMES 


SEQ 0106 


